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本 书 系 统 地 介绍 了 高 效 求解 微 分 问题 的 Matlab 程序 编写 方法 和 技巧 ， 

并 元 分 地 给 出 了 针对 各 种 实际 微分 问题 的 实例 , 包括 三 类 基本 线性 微分 方程 
(抛物 型 、 双 曲 型 、 椭 圆 型 方程 );， 四 阶 微分 方程 ( 双 调 和 方程 等 )， 特 征 值 

问题 〈 定 态 格 定 请 方程 等 ) 和 广义 特征 值 问题 ， 以 及 其 他 非 线 性 、 耦 合 的 复 
款 微分 方 程 〈 组 )， 如 : KdV 方程 、 非 线性 莅 定 请 方程 、 浅 水 方程 、 
Ginzburg-Landau 方程 、Burgers 方程 、 反 应 -扩散 方程 、 平 流 -扩散 方程 。 同 
时 还 介绍 了 不 同 边界 条 件 下 的 其 体 计 算 形式 ， 包 括 周期 性 边界 条 件 ， 第 一 、 
二 、\ 三 类 边界 条 件 。 本 书 给 出 的 每 个 实例 都 代表 了 一 类 问题 的 通用 解决 方法 。 

本 书 适 合作 为 相关 专业 高 年 级 本 科 生 或 研究 生 的 教材 , 也 可 供 相 关 工 程 
技术 人 员 人 参考。 

书 中 代码 可 在 http://www.cmpbook.com 免费 下 载 。 
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出 版 说 明 


随 独 信息 科学 与 技术 的 迅速 发 展 , 人 类 每 时 每 刻 都 会 面 对 层 出 不 努 的 狐 撤 术 和 新 概念 。 
坚 无 儿 问 ， 在 节 委 越 来 越 快 的 工作 和 生活 中 ， 人 们 需要 通过 阅读 和 和 学习 大 量 信息 丰 昌 、 其 
备 实践 指 导 意 义 的 图 书 来 获取 新知 识 和 痢 技能 ， 从 而 不 断 提 高 目 身 系 质 ， 公 跟 信息 化 时 代 
发 展 的 步伐 。 

众所周知 , 在 计算 机 便 件 方面 , 高 性 价 比 的 解决 方案 和 痢 型 技术 的 应 用 一 二 备 受 青睐 
在 软件 撤 术 方面 ， 随 痢 计 算 机 软件 的 规模 和 复杂 性 与 日 俱 增 ， 软 件 扩 术 不 断 地 受到 挑 成 ， 
人 们 一 直 在 为 寻求 更 先进 的 软件 技术 而 奋斗 不 止 。 目 前 ， 计 算 机 和 互联 网 在 社会 生活 中 日 
奏 普 及 , 掌握 计算 机 网 络 技 术 和 理论 已 成 为 大 众 的 文化 需求 。 由 于 信息 科学 与 技术 在 电工 、 
电子 、 通 信 、 工 业 控 制 、 智 能 建筑 、 工 业 产品 设计 与 制造 等 专业 领域 中 已 经 得 到 充分 、 广 
泛 的 应 用 ， 所 以 这 些 专业 领域 中 的 研究 人 员 和 工程 技术 人 员 越 来 越 连 切 需要 汲取 目 且 领域 
言 局 化 所 淀 来 的 新 理念 和 新 方 法 。 

针对 人 们 了 解 和 学 握 新 知识 、 痢 技能 的 热切 期 符 ， 以 及 由 此 促成 的 人 们 对 语言 傈 党 、 
内 容 序 实 、 融 合 实践 经 验 的 图 书 迫 切 需 要 的 现状 ， 机 械 工业 出 版 社 适 时 推出 了 “信息 科学 
与 技术 丛书 ”。 这 套 丛 书 涉及 计算 机 软件 、 便 件 、 网 络 和 工程 应 用 等 内 容 ,注重 理论 与 实践 
的 结合 ， 内 容 实 用 、 层 次 分 明 、 语 言 流畅 ， 是 信息 科学 与 技术 领域 专业 人 员 不 可 或 缺 的 参 
考 书 。 

目前 ， 信 息 科 学 与 技术 的 发 展 可 谓 一 日 千里 ， 机 械 工 业 出 版 柱 欢 迎 从 事 信息 技术 方面 
工作 的 科研 人 员 、 工 程 技术 人 员 积 极 参与 我 们 的 工作 , 为 推进 我 国 的 信息 化 建设 作出 页 献 。 
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我 第 一 次 进行 微分 方程 数值 求解 是 在 读 硕士 的 时 候 ， 当 时 查找 了 很 多 资料 ， 用 现在 看 
来 很 鉴 脚 的 办 法 写 了 大 段 的 Matlab 代码 解决 了 一 个 换 述 油光 右 谐 振 腔 的 们 时 边 值 问题 。 
随后 我 开始 对 数值 计算 产生 了 强烈 的 兴趣 ， 继 续 用 不 那么 专业 的 方法 处 理 研 究 中 遇 到 的 微 
分 方程 。 直 到 谈 博 期 间 我 得 到 了 国家 留学 基金 魏 的 资助 ， 到 美国 华 盛 贺 大 学 〈University 
of Washington) 応用 数 学 系 接 受 陵 合 培 春 , 在 系 主任 J. Nathan Kutz 教授 的 课堂 上 、 组 会 
上 以 及 每 周 1 一 2 次 的 面对面 单独 指导 中 ， 我 接触 到 了 谱 方 法 (spectral method)。 谱 方法 
巧妙 的 原理 和 导师 精湛 的 Matlab 编程 技艺 深 深 地 震撼 了 我 。 求 解 微分 方程 《组 ) 区 可以 
如 些 简洁、 高效、 优雅 ， 那 段 时 间 内 几乎 每 天 我 都 会 产生 这 样 的 感慨 。 回 国 后 我 曾 在 不 同 
场合 做 过 关于 我 理论 结 末 的 现场 报告 ， 于 是 常 有 研究 生 向 我 请 教 那 些 复 林 的 微分 方程 
(组 ) 是 如 何 求 解 的 。 我 在 他 们 身上 看 到 了 我 当初 的 有 影子， 同时 我 也 意识 到 谱 方 法 的 实际 
应 用 在 国内 还 不 普及 。 例 如 非 线 性 苍 纤 光学 中 最 基本 的 非 线 性 村 定 育 方程 《该 方程 也 出 现 
在 非 线性 量子 力学 中 ) 可以 根 据 道 方 法 用 窒 究 十 ル 行 的 Matlab 代码 获得 蜗 精 度数 值 解 ， 
而 我 所 认识 的 研究 生还 在 使 用 既 不 人 简便 也 不 精确 的 分 步 傅 里 叶 法 。 不 久之 后 我 博士 毕业 ， 
由 于 一 心 想 进 蜗 校 任教 的 我 没有 找到 想 要 的 教 职 ， 所 以 刚刚 拿 到 博士 学 位 后 束 街 业 了 3 个 
月 。 于 是 我 在 年 近 30 多 的 时 候 开 始 面 对 既 无 业 、 也 无 钱 、 还 蛙 身 的 人 生 总 剧 ， 恤 起 昔日 
的 同窗 、 朋 友 大 多 已 成 家 立业 ， 内 心 的 苗 回 鳄 其 却 无 处 排解 。 这 时 候 我 开始 痢 手 将 已 掌握 
的 详 方 法 及 其 重要 的 技巧 和 经 验 总 络 成 蔬 ， 一 来 要 让 更 多 的 人 接触 到 这 些 有 价值 的 数值 方 
法 ， 二 来 潜心 写 书 可 令 我 暂时 息 记 眼前 的 烦恼 。 之 后 我 来 到 清华 大 学 物理 系 做 博士 后 研究 
工作 ， 开 始 了 一 项 令 人 振奋 的 研究 ， 当 然 也 不 坊 多 方 联系 本 书 的 出 版 事宜 。 如 今 我 很 蜗 兴 
地 看 到 本 书 即将 出 版 发 行 ， 它 不 但 是 一 本 可 以 教 你 如 何 蜗 效 、 便 捷 地 解决 各 类 微分 问题 的 
实用 教程 ， 同 时 也 是 我 丑 处 逆境 不 甘 认 命 的 一 个 见证 。 

本 书 中 ， 第 见 的 微分 问题 均 可 在 40 行 代码 内 解决 ， 其 中 的 核心 代码 不 到 10 行 , 且 代 
人 码 只 需 在 默认 安装 的 Matlab 上 即 可 执行 ， 并 不 依赖 于 第 三 方 插件 。 此 外 ，Matlab 代码 中 
采用 的 谱 方 法 以 及 时 间 步 进 法 是 在 计算 精度 、 运 算 量 、 稳 定性 等 方面 颇具 优势 的 数值 计算 
方法 ， 所 有 掌握 高 等 数学 和 Matlab 语法 的 读者 在 看 完 本 书 之 后 ， 均 可 以 得 心 应 手 地 、 局 
效 简洁 地 、 精 确 地 解决 各 闫 第 见 微分 问题 。 本 书 分 为 上 入 、 中 篇 和 下 篇 。 上 入 介 绍 欧 拉 
法 、 龙 格 - 库 塔 法 、 有 限 差 分 法 和 有 限 元 法 等 基础 数值 知识 ， 则 在 使 读者 了 解 在 谱 方 法 之 
前 出現 的 主要 数 値 方 法 的 基本 原理 , 井 能 修 与 后 文中 的 道 方 法 形成 対比 , 加 深 理解 。 中 念 
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和 下 篇 分 别 介绍 了 不 同 边界 条 件 下 的 谱 方 法 ， 对 数值 方法 比较 了 解 的 读者 可 快速 浏览 上 篇 
EL 

感谢 J. Nathan Kutz 教授 ， 他 深厚 的 数学 功底 和 过 人 的 物理 直觉 令 我 受益 匪 浅 ， 极 大 
地 感召 我 在 学 术 的 道路 上 一 路 前 行 。 感 谢 我 的 硕 导 和 博导 宋 受 艾 教 授 、 张 狐 平 教授 ， 这 两 
位 教授 工作 出 众 并 且 将 学 生 的 上 自身 发 展 放 在 首要 位 置 ， 在 研究 组 人 手 不 足 的 情况 下 仍然 文 
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所 示 


本 书 代码 中 对 变量 的 命名 巡 循 一 定 规律 : 

以 t 结尾 的 变量 代表 对 某 函 数 做 傅 里 叶 变 换 的 结果 ( 取 transform 首 字 母 )， 如 ut 为 函 
数 & 的 傅 里 时 变换 结束 《〈 即 频谱 )。 

以 4 开头 的 变量 代表 对 函数 求 导 的 结果 《〈 取 derivative 首 字 母 )， 如 du 代表 2/27。 

以 sol 结尾 的 变量 代表 最 终结 果 〈( 取 solution 前 三 个 字母 )， 如 usol 代表 函数 x 的 最 
终结 果 。 


有 时 为 了 传递 参数 ， 不 得 不 把 儿 个 变量 合并 为 一 个 和 变量， 狐 的 变量 名 束 是 直接 把 这 几 
个 变量 名 合并 。 如 uv=[u: v]。 

変量 bc 代表 边界 条 件 相关 矩阵 《〈 取 boundary conditions 的 缩写 )。 

上 述 命名 规律 可 组 合 使 用 。 如 : utsol、vtsol 分 别 代表 函数 u、v 在 频 域 上 的 最 终结 
果 , uvtsol 代表 将 utsol、vtsol 合并 后 的 结果 。dut、dvt 分 列 代 表 員 数 uw、v 在 频 域 上 的 导 
数 , duvt 代表 将 dut、dvt 合并 后 的 结果 。 
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宕 工 草 ”外 值 问题 和 这 值 癌 题 


本 章 将 通过 最 基本 、 人 简单 的 微分 问题 一 一 初 值 问 题 (initial value problem) 和 边 值 问题 
(boundary value problem) 的 数值 解法 ， 引 入 欧 拉 法 、 改 进 的 欧 拉 法 、 龙 格 - 库 塔 法 等 方法 
的 基本 思想 和 内 在 关系 ， 给 出 代 人 码 的 实现 并 予以 说 明 。 此 外 还 介绍 了 局 部 截断 误差 、 刚 性 
等 基本 概念 ， 为 后 续 曹 节 中 求解 更 复杂 的 偶 微 分 问题 做 铺垫 。 


1.1 初 值 问题 


初 值 问 题 是 科研 、 工 程 技术 应 用 中 最 常见 的 一 类 问题 ， 一 阶 党 微分 方程 的 初 值 问题 表 
述 如 下 : 

己 知 u(x) 的 起 始点 (xo, uo) 以 及 u(x) 的 一 阶 导 数 表达 式 为 二 元 水 数 了 (x, め , 求 在 区 同 [zo, 
o) 上 满足 这 两 个 条 件 的 u(x)。 即 : 


du _ 
0 (1-1) 
U(Xo) = uo 


由 于 起 始点 (co xzo) 给 出 了 初始 状态 的 条 件 ， 押 以 被 称 为 初始 条 件 。 在 少数 特殊 情况 下 ， 
可 以 直接 求 出 初 值 问题 的 解析 解 。 对 于 更 一 般 的 情况 ， 融 只 能 通过 数值 解法 求 出 数值 解 。 
数值 解法 的 基本 思路 就 是 先 对 x 和 w(x) 在 区 间 [xo, co 上 进行 离散 化 ， 然 后 构造 递 推 公式 ， 
再 步 进 式 地 得 到 u(x) 在 这 些 位 置 的 近似 取 值 。 

这 些 离散 的 位 置 可 表 为 : 


显然 ，u(x) 在 这 些 离 效 后 处 的 精确 取 值 为 : 
UU ee en 


令 相 邻 两 个 离散 点 的 间隔 为 一 定 值 %”， 则 有 =xotnh (n=1, 2, …)， 这 里 瑚 也 被 称 为 数 
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值 计 算 的 步 长 。 奉 能 构造 出 这 些 位 置 的 近似 取 值 ww, 的 好 推 天 系 ， 也 束 是 通过 w 获得 Un 
的 公式 ， 那 么 就 可 以 依次 获得 和, z, ……。 由 于 计算 wn 只 需要 w 的 取 值 ， 所 以 上 述 方 法 也 
称 为 单 步 法 。 与 乙 相 对 ， 大 用 于 计算 wr 的 化 推 公式 际 包 含 ww 外， 还 包 傅 wb tp ーッ 
那么 这 种 数值 方法 就 称 为 多 步 法 。 

数值 计算 中 最 重要 的 就 是 递 推 公 式 ， 计 算 的 精度 、 运 算 量 都 是 由 递 推 公 陈 决定 的 。 下 
面 由 浅 入 深 地 介绍 几 种 基本 的 构造 递 推 公 陈 的 方法 ， 以 引入 数值 计算 的 思路 和 重要 概念 。 


1.1.1 欧 拉 法 


吹 拉 法 (Euler method) 的 核心 束 是 将 导数 ( 微 商 ) 近似 为 差 商 。 将 导数 近似 为 癌 前 差 
商 , 则 有 : 


dz 本 U(X 1) — u(x, ) 


dx (1=2) 
代入 式 (1-1) 中 的 第 1 个 式 子 ， 得 : 
ux) =u(x,) + hf (x, U(x )) (1-3) 
用 和紀 近 似 代替 gr) 和 go 得 : 
Wa = + hf (Gu) (1-4) 


上 式 称 为 欧 拉 法 ， 其 中 n=0, 1, …。 若 已 知 的 取 值 ， 就 可 以 用 递 推 公式 〈1-4) 步 进 
式 地 计算 出 xz 2, .…. 处 的 tw, wz 。 欧 拉 法 的 几何 意义 如 图 1-1 所 示 ， 从 点 (xo, uo) 出 发 ， 
以 了 (xo, U0) 为 冬训 做 一 直线 段 ， 与 直线 x=xi 交 于 点 (QI 1)， 该 交点 的 纵 华 标 wi 融 是 w(x) 在 
该 处 的 取 值 u(x) 的 近似 。 再 从 点 (x 而 ) 出 发 ， 以 了 Co 1) 为 冬训 做 一 是 线段 ， 与 直线 x= ャ > 
交 十 (>, z2)， 其 纵 坐 标 ww 就 是 u(x2) 的 近似 。 继 续 重 复 这 一 过 程 ， 最 终 获 得 一 条 折线 作为 曲 
线 u(x) 的 近似 ， 因 此 欧 拉 法 也 叫 折 线 法 。 


图 1-1 了 欧 拉 法 的 几何 意义 


如 果 将 导数 近似 为 问 后 兰 商 ， 有 : 
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du U(X) 一 VC) = 

dr RF (1-5) 
同样 代入 式 (1-1) 中 的 第 1 个 式 子 ， 并 用 友和 wii 近似 代 符 w(x) 和 wx)， 得 : 

U1 2 U, 店 hf Ki ln) ( 1-6 ) 


上 式 称 为 后 退 的 欧 拉 法 (backward Euler method), 大 中 n=0, 1,...。 它 与 欧 拉 法 截然 不 
同 , 式 (1-4) 可 直接 用 如 和 冰 计 算得 到 zi， 而 式 〈1-6) 等 号 两 边 同 时 包含 wt1， 无 法 
直接 计算 wo 具体 数值 ， 所 以 也 称 为 隐 式 欧 拉 法 Cimplicit Euler method)。 

如 果 将 导数 近似 为 中 心 差 商 : 


du UX) — UX) RE 
dl 7 (1-7) 
人 SR (1-1 ) 中 的 第 ] di 并 用 Un-l1 和 Un+l 近似 代替 u(xXn_1) 和 和 U(Xn+1); 得 : 
U1 =U, + 2hf (x,,u,) (1-8) 


用 上 式 计算 wn 的 时 候 需 要 wi 和 ww 的 值 ， 所 以 称 其 为 二 步 欧 拉 法 。 实 际 使 用 二 步 欧 
拉 法 的 时 候 ， 起 初 束 要 用 到 wo 和 wi 的 取 什 ， 夺 wi 未知， 一 般 束 和 完 用 欧 拉 法 求 出 wi 的 值 ， 
再 使 用 二 步 欧 拉 法 。 


1.1.2 ”局 部 蕉 断 误 差 


在 利用 某 种 数值 计算 方法 由 wi, wz,.…, Un 逐步 递 推 的 过 程 中 , 每 一 步 产 生 的 误差 都 会 积 
累 在 一 起 。 在 x 处 的 误差 为 u(xw)-wun， 称 为 整体 截断 误 产 。 整 体 截 断 误 差 由 此 前 每 一 步 的 
误差 以 及 误 芭 之 间 的 传递 关系 决定 ， 分 析 它 是 极为 复杂 的 。 所 以 为 了 简化 问题 ， 只 考虑 局 
部 的 情况 。 那 么 假设 w(xw)=wn， 由 x 开始 计算 一 步 的 误工 为 u(xnn1)-unr1， 此 即 为 局 部 截断 
误差 。 若 某 种 数值 计算 方法 的 局 部 截断 误差 为 O02*)， 则 称 该 方法 的 精度 为 p 阶 。 

下 和 面 分 析 欧 拉 法 、 后 退 的 欧 拉 法 、 二 步 欧 拉 法 的 精度 。 

(1) 对 于 欧 拉 法 : 


U, =U, + hf (x,,u,) (1-9) 


假设 ui=u(xn)， 并 利用 w(x)=f (x, の : 


Ws = U(x,) + hu'(x,) (1-10) 
用 泰勒 公式 将 xr) 在 x 处 展开 : 
u(x,.,) =u(x,) + hu'(x,) + Oh ) (1-11) 
上 两 式 相 减 : 
u(x )-u,., = O( が ) (1-12) 
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所 以 ， 欧 拉 法 的 精度 为 1 阶 。 
(2) 对 于 隐 式 欧 拉 法 : 


U1 二 U, で hf 4) 
假设 等 号 右边 有 w=U(xn)、wnr1=U(xnt1)， 并 利用 GCC, の: 
| u(x,) h(x, ) 


将 上 式 中 的 wo 在 xz 处 做 泰勒 展开 : 


Ua = ux,) + hu' Cx,) + OR)] = u(x,) + hur'(x,) + O( が ) 


将 xr) 在 xj 处 泰勒 展开 : 
) =u(x,) + hu'(x,) + OR) 


U(X, 


六 两 式 相 城 : 
U(x, 1) Ul O() 


则 : 隐 式 欧 拉 法 的 精度 为 1 阶 。 


4 ニュ キス が (て っ) 
假设 有 有 ww=u(xn)、wn-i=u(xn-1)， 并 利用 で の: 
0 =U(x, 1) + 2hu'(x,) 
将 上 式 中 的 Cr) 在処 泰 勤 展 井 : 
u, =U(x,)— hu'(x,) + と) + O(h )+2hu'(x,) 
=uU(x,) + hu'(x, )+ を ) + の (/) 
将 u(xnn1) 在 x 处 泰勒 展开 : 


ea) = 45) + hG) + Eu ) + OO) 


U(X, 1) Ur = O(F) 


那么 ， 二 步 欧 拉 法 的 精度 为 2 阶 。 


1.1.3 ”改进 的 欧 拉 法 


对 式 (1-1) 中 的 第 1 个 式 子 在 De zs 上 积分 ， 可 得 : 


(1-13 ) 


(1-14 ) 


(1-15) 


(1-16) 


(1-17) 


(1-18 ) 


(1-19 ) 


(1-20 ) 


(1-21) 


(1-22) 
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ws) Ur) + | f Oo) dx (C123) 


其 中 ，n=0, 1, .…。 用 不同 方 式 来 近似 上 式 中 的 酸 分 迄 算 , 就 会 得 色 不 同 的 退 推 公式 。 
比 如 使用 左端 点 填 算 逢 形 面 根 井 取 近似 : 


1 7GOdr が (Gy )) (1-24) 
然后 用 放 和 近似 代替 wx) 和 xn， 则 式 〈1-23) 変成 : 
Ur =U, + hf (Xx,,u,) C=25) 


这 恰好 就 是 欧 拉 法 。 知 使 用 右 端点 计算 和 窍 形 面积 并 取 近 似 : 


"7 の dr が Ge(Y) (1-26) 
然后 用 ww 和 wn 近似 代替 xxz) 和 xcsD， 则 : 
Mp 十 hf (KU) ( に 27) 


得 到 的 正 古 隐 式 欧 拉 法 。 硅 使 用 梯形 的 面积 做 近似 : 


[far eI Gu) + Ff Ct (1-28) 
再 用 和 wr 近似 代替 wz) 和 Co) 得 : 


Wa + Ff Go) + fs) (1-29) 


上 式 称 該 梗 形 公式 (trapezoidal rule)。 不 难 发 现 ， 它 其 实 就 是 欧 拉 法 和 隐 式 欧 拉 法 的 平均 。 
由 于 用 梯形 和 面积 近似 积分 比 用 和 矩形 面积 近似 积分 的 精度 要 咒 ， 所 以 梯形 公式 也 要 比 欧 拉 法 
和 隐 式 欧 拉 法 的 精度 更 遇 ， 证 明 如 下 : 

假设 式 (1-29) 等 号 右边 有 w=U(xn)、Unr1=u(Xn41)， 并 利用 w'(x)=f (x, wu)， 得 : 


/本 = すう) Ti)] (1-30) 
将 上 式 中 的 wo 在 癌 处 泰勒 展开 : 


=u) + DG) Fu) + hu",) + ON] 


i (1-31) 
= u(x, )+hu'(x,)+ "(x ) + の (/ ) 
将 xx 在 加 处 泰勒 展开 : 
en) = w+ he,) + Sw,) + OF ) (1-32) 


式 (1-32) 与 式 (1-31) 相 减 得 : 
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U(x) ーー = O(F) ( 1-33 ) 


因此 ， 梯 形 公式 的 精度 为 2 阶 。 

吹 拉 法 虽然 精度 仿 低 ， 但 它 是 显 式 的 ， 可 直接 得 到 结果 。 而 标 形 公式 是 隐 式 的 ， 虽 然 
精度 较 遇 ， 却 无 法 通过 一 步 计 算得 到 结果 ， 夺 用 达 代 法 计算 ， 运算 量 非 常 大 。 综 合 这 两 种 
方法 ， 可 以 相 得 益 朝 : 先 用 显 式 却 低 精度 的 欧 拉 法 计算 得 到 一 个 粗略 的 预测 值 wr1， 再 将 
这 个 预测 值 ni 代入 梯形 公式 进行 修正 ， 得 到 较 遍 精度 的 结 末 ui1。 这 就 是 预测 -校正 法 
(predictor-corrector method)， 也 称 为 改进 的 欧 拉 法 。 它 的 过 程 可 表示 如 下 : 


Ui = 2 + hf co) 
ヵ ー (1-34) 
コー の + 5 Go ,Ui ) + FRaU 


式 (1-34) 中 ， 前 一 步 为 预测 过 程 ， 后 一 步 为 校正 过 程 。 它 也 可 以 写成 钥 套 形式 ， 即 


显 式 形式 : 


U = Ef Ct) + ft, + hf (x,,u,))] (1-35) 
或 号 成 平 均 化 的 形式 : 
2 =U, + hf (Xs) 
Us =U, + hf nl,) (1-36) 
| = (2 +u,)/2 
显然 ， 它 的 不 同 表 达 式 一 一 式 (1-34)、 式 (1-35)、 式 (1-36) 都 是 等 价 的 ， 其 精度 
是 2 阶 ， 证明 从 上 略 。 


1.1.4 龙 格 - 库 塔 法 


将 欧 拉 法 写成 式 〈1-37) 的 形式 ， 可 以 看 出 它 实 际 上 利用 了 fx, 在 x 处 的 取 值 来 计 
算 wi 的 值 。 类 似 地 ， 隐 式 欧 拉 法 使 用 了 f(x, め 在 zn 处 的 近似 值 来 计算 wa 的 值 ， 而 欧 
拉 法 和 隐 式 欧 拉 法 的 精度 都 是 1 阶 。 


bs 一 UY, h ( に 37) 


ん = hf (x,,U,) 
同样 ， 将 预测 -校正 法 写成 如 下 形式 ， 不 难 发 现 它 其 实 是 用 了 (x, 由 在 如 和 xl 两 处 的 
取 值 来 计算 wi 的 值 ， 并 达到 了 2 阶 的 精度 。 
ュー + (hk +k,)/2 
k =hf (x,,u,) (1-38) 
ん =hf (x, +h,u, + た ) 


上 述 方 法 痢 是 通过 了 (x, 四 0 在 不 同位 置 的 线性 组 合 来 计算 ws 的 值 , 所 考虑 的 位 置 越 多 ， 
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精度 也 束 越 蝇 。 顺 看 这 样 的 思路 想 下 去 ， 如 果 用 了 (x, 在 更 多 位 置 的 线性 组 合 来 构造 化 推 
公式 ， 将 会 得 到 更 高 的 精度 ， 这 束 是 龙 格 - 库 塔 法 (Runge-Kutta method) 的 思想 。 这 样 ， 
導 推 公式 閣 有 如 下 形式 : 


rr 
Ul = Ut > Rk 
je 


k = hf (x,,u,) (1-39) 


ん = ws + aih,u, :5 } 6 | 9 


其 中 , Rj、ai、 カカ 妨 待 定常 数 。 由 干 使用 了 Cr, め 在 7 介 位 賞 的 取 値 , 称 递 推 公式 (1-39) 
为 , 阶 龙 格 - 库 塔 法 。 为 了 确定 其 在 某 一 精度 下 的 待定 系数 ， 需 要 将 式 中 的 wri 在 x 处 泰 
勒 展开 ， 并 与 u(xnn) 在 x 处 的 泰勒 展开 式 比较 : 


2(Y ) = U(x, )+ U(x, )+ を ん (x,)+.. + G6, ) + 0 (1-40) 


举 侍 定常 数 RR、ai、 5 的 取信 使 得 两 式 最 多 有 前 tt1 项 相同 ， 那 么 ， 
U(x) UH = Or ) (1-41 ) 
这 即 是 说 ， 此 时 R;、a;、by 的 取 值 使 得 式 (1-39) 具有 天 阶 的 精度 ， 下 面 举例 说 明 。 
当 r=2 时 ， 龙 格 - 库 塔 法 化 推 公 式 为 : 
U, =U, + RE + RK, 
k =hf (x,,u,) (1-42) 
ん = h(x, +ah,u, +bk ) 


将 厂 的 表达 式 在 x 处 展开 : 
k, =hf (x, + ah,u, +bk) 

= hf (x,,u,) + ahf (x の ) + bk f(x,,u,) + OM] (1-43) 

= Wf x0 ) th [af CU,) + bf CU f Ns) + OR) 
閣 太 和 た ね 代入 unri 的 表达 式 : 

Wn = Uy +h(R +R,) f(x,u,) + [aR fxd) + DR,f, (sd)f (su )] + OF ) 
(1-44) 
假设 w=u(xs)， 并 根据 式 (1-1) 中 的 第 1 全 式 子 , 使 式 (1-40) 和 式 (1-44) 的 前 3 
項 相 同 , 得 到 : 


R +R,=!1 
aR, =1/2 (1-45) 
bR, =1/2 
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满足 上 式 的 RI、R，、a、。b 可 以 有 无 穷 多 种 情况 ， 每 种 情况 的 局 部 截断 误差 都 是 0( が ), 
都 被 称 为 二 阶 龙 格 - 库 塔 法 。 如 果 取 RI1=R,=1/2、a=bp=1， 就 是 前 面 提 到 的 预测 -校正 法 。 
如 采取 Ri=0、R2=1、a=p=1/2， 就 得 到 中 点 公式 (midpoint method): 


Ul 一 ZL 十 ん 。 


k =hf(x,,u,) (1-46) 


1 1 
ん 一 hf ル + 3 hu + ラテ 


二 阶 龙 格 - 库 塔 法 不 能 保证 局 部 截断 误差 为 (7), 所 以 接 下 来 考慮 r=3 的 情況 , 即 : 
U, =U, + RE + Rk, +R,k, 
= が (Gr) 
ん = ゲ が ( +ash,u, + の た) 
た =hf (x, +ash,u, +Dbk +b,,k,) 


(1-47) 


与 r=2 的 情况 类 似 ， 先 写 出 上 式 中 的 wi 在 x 处 的 泰勒 展开 式 ， 并 假设 w=u(xn)， 与 
式 (1-40) 比较， 要 保证 局 部 截断 误差 为 u(xr1)-unm=O(h)， 得 : 


R +R,+A,=! 


a, = DO 
0 三思 1 十 0 


LR, +aR, =1/2 


(1-48) 


GR + as Rs =1/3 
qb3s Rs = 1/6 


方程 组 (1-48) 的 解 有 无 穷 多 个 ， 每 组 解 都 确定 一 个 三 阶 龙 格 - 库 塔 法 的 公式 。 比 较 简 
单 日 重要 的 一 组 解 是 RJ=1/6、Rs=4/6、R3=1/6、a2=1/2、a3=1、bBby=1/2、b31=-1、b32=2， 它 
对 应 的 是 库 塔 公式 (Kutta's third-order method), 如 下 : 


ab ご の +=( ん +4k +k) 
k = hf (x,,u,) 
(1-49 ) 
1 1 
ん = hf ル + テ ん + うっ 


ん =hf (x, +hu, — た +2k) 


类 似 地 ，r=4 时 ， 龙 格 - 库 卉 法 的 递 推 公式 的 形式 为 : 
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U, =U, + RE+RhRE +REhk+Rk 

hh = hf (XU,) 

k, = hf (x, +ash,u, +b,k) (1-50) 
ks =hf (x, +ah,u, + +b,,k,) 

ks = hf (x, +ah,u, オキ 太り ちん + bk ) 


在 局 部 截断 误差 为 O(7) 的 前 提 下 ， 得 到 关于 上 式 中 待定 常数 的 方程 组 的 过 程 比 较 复 


区， 这 里 从 略 。 下 面 给 出 两 组 常用 的 四 阶 龙 格 - 库 塔 法 的 公式 。 
标准 四 阶 龙 格 - 库 塔 公 式 (classic fourth-order method): 


pe +=( ん +2 た +2 た + た ) 
ん = M(x,,u,) 
1 1 
ん -| + 3 hu + (1-51) 
ん -if + よ 』 み ん + | 
3 n 2 9 7 の 2 
ks =hf (x, + hu, + た) 
吉尔 〈Gill) 公式 : 

ルー ニカ + 全 

k = hf (x,,u,) 

ん = が + ラテ + (1-52 ) 


] 
k= ol t+ Fh ドー 


ん -ys + 9 | 


2 


需要 强调 的 是 , r 的 取 值 并 不 总 是 和 精度 的 阶 数 相同 ， 二 者 关系 如 表 1-1 所 示 。 随 看 x 
的 增加 ， 每 化 推 一 步 的 运算 量 也 在 增加 ,对 于 多 数 实际 问 题 ， 四 阶 龙 格 - 库 塔 法 的 精度 就 已 
经 是 够 了 ， 因 此 它 也 是 最 第 用 的 龙 格 - 库 塔 法 。 


表 1-1 7 与 计算 精度 的 关系 


1.1.5 ode 系列 质数 的 用 法 


Matlab 的 ode 系列 函数 (统称 odesolver) 专门 用 于 求解 形 如 式 (1-53) 的 第 微分 方程 
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的 初 值 问题， 或 者 求解 形 如 式 〈1-54) 的 第 微分 方程 组 的 初 值 问题 。ode 是 常 微分 方程 
(ordinary differential equation ) 的 现 文 缩写 。 
u'=f (x,U), 7(Xo) 三 0 (1=53) 
Ui=f (Ky U1, U2, My 5)。 7 の (Yo) カ 。 j=1,2,...,n (1-54) 
数值 求解 第 微分 方程 (组 ) 的 初 值 问题 一 般 需 要 两 个 文件 : 主 程序 文件 〈 如 main.m) 
和 定义 函数 odefun 的 文件 ( 即 odefun.m)。 简单 来 讲 , 主 程 序文 件 main.m 包括 变量 的 定义 、 
初 始 化 、 odesolver 的 调用 、 计 算 结果 的 处 理 和 显示 。 而 文件 odefun.m 中 定义 的 函数 odefun 
用 来 给 出 w(x)〔 或 ui(x)) 在 任 一 位 置 的 取 值 ， 也 就 是 实现 f(x,w) (或 f(x ww, w, .Un))。 
后 耐 革 闻 的 代码 示例 可 帮助 读者 更 好 地 理解 这 两 个 文件 的 作用 和 关系 。 
ode 系列 阔 数 的 一 般 调 用 语法 为 : 
[X,U] = odesolver(odefun,xspan,uO,options,parameterl,parameter2,...) 

下 面 对 每 一 项 进行 说明: 

(1)“odesolver” 是 所 使 用 的 ode 系列 图 数 名 称 , 可 以 是 ode4$ 、 ode23 、 ode113 、 ode15s、 
ode23s、ode23t 和 ode23tb 中 的 一 个 。 

(2) “odefun” 起 定 又 了 G, の ( 或 方 ( 2 2 …。 Un)) 的 图 数 的 句柄 ， 可 以 是 单 引号 
括 起 来 的 函数 名 ， 也 可 以 是 前 面 加 “@” 的 函数 名 。 

(3)“xspan” 为 第 微分 方程 〈 组 ) 日 变量 x 的 取 值 范围 。 它 可 以 是 一 个 二 维 问 量 ， 如 
“[x0 xn]”。 这 种 情况 下 ， 香 微分 方程 〈 组 ) 将 在 该 区 间 上 被 求解 ， 计 算 后 所 返回 结束 是 u(x) 
(或 w(x)) 在 这 一 区 间 内 某 些 位 置 的 取 值 ， 其 体位 置 由 odesolver 目 行 决定 。xspan 也 可 以 
是 一 个 n+1 维 癌 量 ， 如 “[x0,x1,.….,xn]”， 这 样 计算 后 将 返回 u(x) 或 w(x)) 在 向 量 xspan 
中 每 个 元 素 所 对 应 位 置 处 的 数值 结果 ， 注 意 问 量 xspan 中 的 元 素 必 须 按照 从 大 到 小 或 者 从 
小 到 大 的 顺序 排列。 显然 ，xspan 的 第 一 个 元 素 必 然 是 初始 条 件 的 位 置 xo。 

(4)“u0” 是 一 个 数值 〈 回 量 )， 人 代表 第 微分 方程 〈 组 ) 初 值 问题 的 初始 条 件 ， 即 w(x) 
(或 w(x)) 在 初始 位 置 的 取 值 。 当 然 ,， 初始 条 件 个 数 每 于 第 微分 方程 组 的 方程 个 数 才能 
求解 。 

(5)“options” 为 可 选项 ， 它 是 一 个 能 改变 odesolver 默认 参数 设置 的 结构 体 ， 由 odeset 
函数 生成 。 寿 不 改变 默认 参数 设置 ， 可 将 其 设 为 宇 ， 即 “[ ]”。 

(6)“parameterl,parameter2,...” 为 传递 给 odefun 的 参数 ， 个 数 随 意 决 定 ， 是 可 选项 。 

(7) 计算 结果 保存 到 “[X,U]” 中 ， 回 量 X 包 含 一 系列 位 置 xo xz ,xm， 回 量 〈 和 窍 阵 ) 
U 包含 u(x) ( 或 (<)) 在 这 些 位 置 的 数值 解 。 

使 用 ode 系列 函数 时 还 需要 定义 odefun 糸数 , 一段 这 是 一 个 单独 的 文件 ， 文 件 名 与 函 
数 名 相同 , 即 : odefun.m。 与 odesolver 的 调用 形式 相对 应 ， 该 文件 开头 声明 如 下 : 


function du = odefun(x,u,dummy,parameterl,parameter2,...) 


4C1)“odefun” 为 函数 名 ， 可 随 最 选取 ， 但 是 必须 与 文件 名 相同 。 
(2)“xX2” 为 目 变 量 。 
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(3)“u” 是 和 常 微分 方程 (组 ) 的 u(x) (或 wx)) 在 x 处 的 取 值 ， 是 一 个 数值 (向 量 )。 

(4)“dummy” 是 一 个 用 来 占 位 的 变量 ， 无 实际 意义 。 如 采 调 用 odesolver 时 使 用 了 
options， 驶 需要 在 这 里 加 入 一 个 无 用 的 变量 与 乙 对 应 。dummy 在 英语 中 意 为 倪 价 。 

4$)“parameterl,parameter2,...” 用 于 接收 传递 来 的 参数 ， 注 意 前 面 必须 有 dummy 占 
用 一 个 位 置 才 不 会 出 错 。 

(6)“du” 为 函数 odefun 输出 结果 的 变量 名 ， 可 随意 选取 。 

这 里 需要 特别 强调 一 下 , 如果 调用 odesolver 时 需要 给 函数 odefun 传递 参数 parameter1, 
parameter2,...， 根 据 语法 ， 这 些 参数 是 排 在 options 后 的 ， 所 以 在 options 的 位 置 必须 有 一 
变量 ， 如 无 需 改 变 odesolver 的 默认 设置 ，options 的 位 置 只 填 入 “| ]” 即 可 。 相 应 地 ， 函 
数 odefun 接收 参数 时 也 需要 在 该 位 置 填 入 一 无 意义 变量 dummy。 换 名 话说， 由 于 options 
排 在 参数 parameterl,parameter2,... 之 前 ， 所 以 只 要 用 到 传 参 功 能 ， 即 使 不 想 通 过 options 改 
变 默 认 设 置 ， 也 要 占用 该 位 置 才 不 致 出 错 。 

苛 既 不 传递 参数 也 不 改变 设置 ， 那 么 调用 odesolver 和 定义 函数 odefun 的 语句 为 : 

[X,U] = odesolver (odefun,xspan,u0) 


和 
function du = odefun(x,u) 

1.1.4 小 节 介 绍 的 龙 格 - 库 塔 法 计算 公式 实际 上 属于 定 步 长 算法 ， 因 为 它 的 步 长 ヵ 为 定 
值 。 步 长 h 的 选取 对 数值 计算 有 很 大 影响 ， 过 大 会 导 人 笃 误 产 较 大 ， 过 小 则 会 引起 运算 量 增 
大 以 及 舍 入 误差 大 量 积累 。 这 一 不 中 的 改进 方法 束 古 算法 根据 误 闫 的 情况 来 日 动 调整 每 一 
步 的 步 长 ， 在 方程 的 解 变 化 快 的 地 方 采用 小 步 长 ， 变 化 慢 的 地 方 采 用 大 步 长 。 较 之 定 步 长 
算法 ， 这 种 变 步 长 算法 能 更 灵活 地 寻求 运算 量 和 误差 之 间 的 平衡 。 

然而 ， 和 名 用 的 变 步 长 四 、 五 阶 龙 格 - 库 塔 法 只 适用 于 非 刚 性 (nonstiff) 方程 。 对 于 所 
谓 的 刚性 〈stiff) 方程 ， 上 述 变 步 长 算法 为 了 保证 精度 ， 会 目 动 采用 非常 短 的 步 长 计算 。 
这 了 驶 导致 计算 速度 极 慢 以 致 无 法 接受 ,所 以 刚性 方程 由 另外 的 变 步 长 算法 来 进行 数值 计算 。 
也 束 是 说 ， 刚 性 方程 和 非 刚性 方程 对 步 长 选取 的 要 求 存 在 差 寞 ， 只 能 用 不 同 的 变 步 长 算法 
来 求解 。 

顾名思义 ，ode45 使 用 的 是 变 步 长 的 四 、 五 阶 龙 格 - 库 塔 法 ， 它 的 精度 适中 ， 可 用 于 求 
解 大 多数 常 微分 方 程 (用), 赴 odesolver 中 的 首选 。ode23 采用 变 步 长 的 二 、 三 阶 龙 格 - 库 
塔 算法 ， 它 的 精度 略 震 ， 但 比 ode45 的 计算 速度 更 快 。ode23 和 ode45 都 属于 单 步 算法 ， 
而 ode113 用 了 Adams-Bashforth-Moulton 多 步 算 法 ， 它 的 精度 和 速度 在 某 些 情况 下 会 比 
ode45 更 高 。 六 和 面 提 到 的 这 三 种 odesolver 都 仅 适 用 于 非 刚 性 方程 (组 )。 针 对 刚性 方程 6 组) 
只 能 用 ode1S$s、ode23s、ode23t、ode23tb。 如 末 不 能 判断 第 微分 方程 〈 组 ) 是 否 刚 性 ， 优 
先 推荐 选用 ode45 求解 ， 遇 到 运行 失败 或 者 迟到 不 见 输 出 结果 的 情况 ， 再 用 ode15s， 这 样 
可 以 处 理 绝 大 多 数 的 第 微分 方程 (组 )。 仍 不 行 的 话 束 尝试 其 他 的 odesolver。 表 1-2 给 出 
了 ode 系列 函数 的 基本 介绍 。 
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表 1-2 ode 系列 函数 简介 


除 数 处 理 问 题 类 型 精 度 描 述 


ode45 非 刚性 大 多 数 情况 下 的 首选 
ode23 非 刚性 处 理 对 精度 要 求 不 高 或 中 等 刚性 的 问题 


ode113 非 刚 性 低 中 高 处 理 某 些 问 题 比 ode45 更 精确 更 高 效 


ode1Ss ode45 失效 的 时 候 优先 尝试 
ode23 处 理 对 精度 要 求 不 高 的 刚性 问题 
中 等 刚性 处 理 中 等 刚性 问题 

ode23tb 刚性 处 理 对 精度 要 求 不 高 的 刚性 问题 


下 面 以 初 值 问题 〈1-55) 为 例 ， 示 范 几 种 数值 方法 的 代码 实现 。 


7 一 一 3 十 6X 十 人 
(0)=3 
上 式 的 解析 解 为 : u=2e “+2x+1。 这 里 分 别 用 欧 拉 法 、 预 测 - 校 正法 、ode45 求解 该 问 
题 ， 并 分 别 计算 三 种 方法 的 数值 解 与 解析 解 的 误 兰 。 代 但 如 下 : 


分 
程序 1- 


(1-53) 


= 


clear all: close all: 
L=1; h=0.05; x=0:h:L; 
u Buler 王 Zeros(length(x),1): u Euler(l)=3; 
u pc=u Euler: u ode45=u Euler: 
for n=1:length(x)-1 
% 欧 拉 法 
u Euler(n+1)=u Euler(n)+h*(-3*u Euler(n)+6*x(n)+5); 
% 了 预测 -校正 法 
kl=h*(-3*u pc(n)+6*x(n)+5); 
k2=h*(-3*(u pc(n)+k1)+6*(x(n)+h)+5); 
u pc(n+l)=u pec(n)+(k1+k2)/2; 
end 
%ode45 
[x,u ode45]=ode45(@(x,u)[-3*u+6*x+5],x,u ode45(1)); 
% 解 析 解 
u Cexact 一 2*exD( 一 う \*x ) 十 2*x 十 ]・ 
% 画 図 
plot(x,u Euler,'xk',x,u pc,'ok',x,u ode45,+k'.x,u exact, KMarkerSize,10,LineWidth',1.5) 
axis(|0 1 2.3 3.151]), xlabel x, ylabel u, set(gca,Fontsize',18) 
legend(' 欧 拉 法 ',' 了 预测- 校正 法 ','ode45',' 解 析 解 ','location','North') 
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% 三 种 算法 的 误 状 
Error(:,1)=abs(u Euler-u exact): 
Error(:,2)=abs(u pc-u_ exact): 
Error(:,3)=abs(u ode45-u exact): 


在 调用 ode45 时 ， 因 为 表达 式 ヵ 三 -3z+6x+S 比较 简单 ， 所 以 没有 单独 新 建 一 个 函数 文 
件 ， 而 是 使 用 了 匿名 函数 (anonymous function)。 定 义 匿名 函数 的 语法 为 : 
fhandle = @(arglist) expr 
“fhandle” 为 函数 句柄 。“arglist” 为 该 函数 的 参数 列表 ， 多 个 参数 以 逗号 隔 开 。 “expr” 
为 该 函数 的 表达 式 。 代 码 中 的 “@(x,_D)[ -3*u+6*x+5]” 与 新 建 一 个 odefan.m 文件 , 里 面 填 
上 如 下 内 容 是 等 效 的 。 


function du=odefun(x,u) 
du ニー3\u 二 6“x 十 5: 


使 用 匿名 困 数 可 以 减少 一 个 函数 文件 ， 但 仅 针 对 函数 表达 式 很 简单 的 情况 。 由 于 本 书 
后 和 面 所 解决 的 问题 都 比较 复杂 ， 所 以 其 余 代 码 都 将 使 用 创建 函数 文件 的 方法 。 运 行 代 码 得 
到 结果 如 图 1-2 所 示 。 可 以 看 到 ,在 步 长 同 为 r=0.05 的 情况 下 ， 欧 拉 法 的 数值 结果 明显 偏 
离 了 解析 解 ， 而 预测 -校正 法 、ode45 的 数值 结果 与 解析 解 重合 得 较 好 。 


x 欧 拉 法 
O 预测 -校正 法 
+ ode43 
ーー 解析 解 


0 0.2 0.4 0.6 0.8 1 
xX 


图 1-2 用 欧 拉 法 、 预 测 -校正 法 、ode45 求 出 数值 解 ， 并 与 解析 解 相 比较 
表 1-3 列 出 了 三 种 方法 在 每 个 位 置 押 得 数值 络 束 以 及 误 革 。 显 然 ， 三 者 在 误 送 上 的 天 
系 有 : 了 欧 拉 法 > 预测 -校正 法 >ode45， 这 与 此 前 局 部 鹤 断 误 兰 的 分 析 结 果 是 一 致 的 。 


表 1-3 欧 拉 法 、 预 测 - 校 正法 、ode45 的 数值 结果 与 解析 解 的 比较 


13 


Matlab 微分 方程 高 效 解 法 : 谱 方 法 原理 与 实现 


〈 续 ) 


位 置 


接 下 来 再 给 出 一 个 数值 求解 刚性 方程 组 的 例子 。van der Pol 方程 是 Matlab 帮助 文件 提 

到 的 一 个 很 典型 的 刚性 问题 ， 表 达 式 可 写成 如 下 形式 : 
Ul = U>, u(0)=2 
us =1000(1—u )u, —u, u,(0)=0 


用 专门 处 理 刚性 方程 的 odel5s 在 区 间 [0, 3000] 上 数值 求解 wi(x)， 代 码 如 下 : 


(1-56) 


程序 1-2 


主 程序 代码 如 下 : 

clear all: close all: 

[T,U]=odel Ss((@vdp,[0 30001,[2 0]); 
plot(T,U(:,1),'k',LineWidth',1.5) 
xlabel x, ylabelu 1 


文件 vdp.m 代码 如 下 : 


function du=vdp(x,u) 
du=[u(2); 1000*(1-u(1) 2)*u(2)-u(1)]; 
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vdp.m 文件 中 定义 的 vdp 函数 将 w 、w 的 值 放 在 一 个 二 维 问 量 中 输出 。 此 外 ， 存 放 计 
算 络 果 的 变量 U 是 一 个 两 列 的 和 矩阵， 分 别 对 应 于 wi 和 ws 的 数值 结果 。 这 是 求解 具有 两 个 
方程 的 方程 组 与 求解 一 个 单独 方程 的 差别 。 程序 输出 如 图 1-3 所 示 , 可以 看 到 ヵ 在 某 些 位 
置 的 变化 十 分 剧烈 。 如 果 将 代码 中 的 odel15s 换 成 针对 非 蜀 性 问题 的 ode45，CPU 占用 率 将 
长 时 间 维 持 在 100%， 并 且 述 返 得 不 到 计算 结果 ; 和 而 这 对 于 odel5s 只 需要 一 瞬间 ， 这 说 明 
处 理 刚 性 / 非 刚性 方程 时 采用 正确 的 方法 可 以 事半功倍 。 


2 


1.5 


S00 1000 1500 2000 2500 3000 
Xx 


图 1-3 刚性 问题 van der Pol 方程 的 数值 解 


1.1.6 ”高 阶 微分 方程 的 降 阶 


在 初 值 问题 中 ，odesolver 只 能 用 来 数值 求解 一 阶 微分 方程 〈 组 )。 对 于 高 阶 微分 方程 ， 
可 以 将 其 化 成 一 阶 微分 方程 组 ， 进 而 用 odesolver 求解 ， 过 程 如 下 。 
有 ヵ 防 微分 方 本: 


du du dy ー 
で Ed (1-57) 
其 在 xo 处 的 初始 条 件 为 : 
u(Xo) = 


TT (1-58) 


uN (x)=, 


做 变量 代 换 : 
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7 
1 (1-39) 
tau 
则 阶 微分 方程 可 与 为 一 阶 敌 分 方程 组 : 
4 二 2 
/和 
(1-60) 
i —U, 
7 = f(X,U,U,,. UU,) 
相应 初始 条 件 为 : 
ui (Xo) = 7 
2 りこ (1-61) 
U, (Xo) = 77, 


到 这 一 步 殴 可 用 odesolver 直接 对 其 求解 了 , 后 面 章节 在 解决 高 阶 微分 方程 的 初 值 问题 
时 将 反复 应 用 此 原理 。 
下 面 以 阻尼 振动 问题 为 例 : 
u"+2Bu'’ to u=0, u(0)=1, (0) =0 (1-62) 
这 是 一 个 二 阶 第 微分 方程 的 初 值 问 题 ， 它 摘 述 了 一 个 弹 千 振子 或 单 摆 在 振动 过 程 中 ， 
由 于 阻力 的 作用 ， 振 幅 逐 渐 减 小 的 现象 ， 其 中 8、o 为 单数 ， 取 p=1、w=10。 先 做 变量 
代 换 : 


< Ci 
7 =U 
则 式 〈1-62 ) 变 为 : 
a ee (1-64) 
u, ニー2/7/。 -@o'u, u,(0)=0 

接 下 来 用 ode45 数值 求解 ， 代 人 码 如 下 : 

程序 1-3 

主 程序 代码 如 下 : 


clear all: close all: 


beta=1: omega=10: xspan=[0 5|: 
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[xX,usol]=o0de45('damp',xspan.,[1 0],[],beta,omega); 
plot(x,usol(:,1),'k',LineWidth',1.5) 
xlabel x, ylabel u 


文件 damp.m 代码 如 下 : 


function du=damp(t,u,dummy,beta,omega) 
du=[u(2); -2*beta*u(2)-omega’^2*u(1)]; 


根据 初 妈 条 件 和 方程 的 物理 意义 ,振子 在 初始 时 刻 的 位 移 w 为 1、 速度 wu 为 0。 可 以 预 
测 ， 在 随后 的 振动 过 程 中 ， 振 子 殉 服 阻 力 做 功 ， 振 幅 逐 渐变 小 ， 这 与 程序 的 得 出 岗 1-4 是 
吻合 的 。 


(CA 


0.5 1 1.5 2 2.5 3 3.5 4 4.5 
xX 


图 1-4 阻尼 振动 问题 的 数值 解 


1.2 边 值 问题 


前 面 分 析 的 是 初始 条 件 下 常 微分 方程 (组 ) 的 数值 求解 ， 但 在 某 些 实际 问题 中 ， 已 
知 的 是 边界 上 的 条 件 ( 即 边界 条 件 ) 而 非 初 始 条 件 ， 如 : 梁 的 形变 问题 、 激 光 器 谐振 胸 
的 理论 模型 、 可 转化 为 边 值 问题 的 特征 值 问题 等 。 本 小 节 讨 论 典 型 的 二 阶 第 微分 方程 的 
边 值 问题 : 


2 
fm, a<x<b (1-65) 


其 辺 界 条 件 入 (gi、 反 、 カカ 、 の 、 め 、 め 均 罰 常 数 ): 
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om + 方 4( の = ケル (1-66) 


Qu(b) + pu (の ) ニク 
上 却 具 有 很 强 的 一 般 性 ， 这 里 先 从 一 种 简单 的 边界 条 件 开 始 分 析 〈w、 为 常数 ): 


u(a)=a, ulb)=5B (1-67) 


1.2.1 打转 法 


对 于 二 阶 第 微分 方程 (1-65〉 及 边界 条 件 (1-67)， 利 用 代 换 w=u、u2=u”， 可 将 其 与 
为 等 价 的 方程 组 形式 : 


は (9) ニ の (1-68) 


Ww = (XU,Ug), ui(b)=p 


它 与 初 值 问 题 的 不 同 之 处 在 于 ，w2(q) 的 值 是 未 知 的 ， 已 知 条 件 中 取而代之 的 是 wu1(2) 
的 值 ， 人 否则 就 可 以 直接 通过 odesolver 数值 求解 了 。 假 如 可 以 确定 一 个 值 m， 使 初 值 问题 
(1-69) 的 解 <) 満足 IM の - 放 Sg, 其 中 g 为 可 允许 的 误 关 ,那么 边 值 问题 《1-68) 和 初 值 问 
题 〈1-69) 的 解 束 是 近似 相等 的 ， 也 就 相当 于 把 边 值 问题 转化 成 了 初 值 问题 。 


し = 7 っ 。 (の ) ニン 


Uy ニア (や 大) 6( の = 


(1-69) 


打靶 法 就 是 用 来 确定 丸 值 的 ， 大 致 思路 如 下 : 

(1) 随意 选取 六 的 起 始 值 。 

(2) 求 出 初 值 问题 (1-69) 的 解 ui(x)。 

(3) 若 不 符合 lu1(5)-Bl<e， 就 修正 m 的 值 。 

(4) 重复 前 面 两 项 ， 直 到 符合 lu1(5)-Bl<e， 此 时 的 wi(x) 就 是 数值 解 。 

修正 丸 取 值 的 方法 可 以 是 线性 插值 法 、 和 牛顿 法 等 ， 这 里 使 用 比较 简单 的 线性 插值 法 。 
设 m=m 时 初 值 问 题 (1-69) 的 解 』(C) 在 x= 处 有 wu1(5)=B,， 其 中 n=1, 2, ...。 若 假设 m, 
与 fp 是 线性 关系 ， 为 了 让 m 取 最 新 修正 值 mp 时 有 pii2=B， 则 mn 需要 满足 
(mat2—ma)/(B-PBa)=mar Ma) Bar bn, Bh: 


i (1-70) 
7 十 ] 7 


其 中 的 pa、、mai、Bnri 为 已 知 ， 这 束 是 说 如 果 使 用 线性 插值 法 修正 m 的 取 值 ， 
在 打 筷 法 开始 时 需要 先 随 意 选 取 2 个 m 的 起 始 值 m1、m2， 计 算出 相应 的 Bl1、pb2， 才 可 以 
根据 上 式 得 到 修正 值 ws， 进而 得 到 p33， 然后 得 到 修正 值 ma…… 生 到 找到 满足 |B-pbl<e 的 
m 值 。 此 时 初 值 问题 〈1-69) 的 解 即 近似 为 边 值 问题 〈1-68) 的 解 ， 而 初 值 问题 是 容易 
数值 求解 的 。 
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打 辑 法 的 过 程 如 网 1-5 所 示 ， 虽 然 m 取 ml、ms 时 ， 最 终结 果 在 x=b 处 的 取 值 与 应 有 
的 边界 条 件 相 益 甚 还 ， 但 通过 一 次 一 次 地 修正 ， 了 逐渐 缩小 距离 目标 的 产 距 ， 最 终 总 会 得 到 
在 一 定 误差 内 满足 x=b 处 边界 条 件 的 解 。 

对 于 更 复 琳 的 边界 条 件 (1-66), 照 梓 可 以 用 打 潮 法 解 決 。 尽 管 ww 和 uw‘(a) 的 值 都 是 
未 知 的 ， 但 只 要 猜测 它们 其 中 一 个 的 取 值 ， 束 可 以 通过 关系 ziz(⑦+/z(2)= ァ 得 到 另外 一 
个 的 值 。 有 了 u(a) 和 wa) 的 值 ， 再 通过 odesolver 求解 式 (1-65) 得 到 xD 和 wD) 的 值 ( 当 
然 需 要 变量 代 换 w=w、wz=u')， 然 后 使 用 |azu(5)+Bou(D5)-yo|<e 判断 猜测 的 初始 值 是 否 符合 
要 求 ， 如 失败 驶 修正 猜测 值 后 继续 尝试 ， 直 到 符合 要 求 。 这 样 一 来 ， 同 样 可 以 将 边界 条 件 
(1-66) 下 的 边 值 问题 当做 初 值 问 题 处 理 。 


图 1-5 打靶 法 示意 图 


下面 挙 一 全 例 子 , 考慮 如 下 二 除 常 微分 方 程 : 


WU 十 


ul=0, 0<x<4 C191 
其 边界 条 件 为 : 

u(0)=0, u(4) =-2 (1-72) 
做 代 换 wi=u、wz=u， 写 为 一 阶 常 微分 方程 组 形式 : 


し = UW, u,(0) =0 


(1-73) 


站 
WU 二 内 


将 此 问题 转化 为 初 值 问题 ， 就 需要 找到 一 个 m=m， 使 式 〈1-74) 的 解 』C) 在 x=4 处 
的 值 uw(4)=B, 満足 |+2 に 10 7『。 


i ia (1-74) 


， WU,(0)=m 


A 
WU 一 7 


根据 打 辑 法 思想 ， 确 定 闫 取 值 的 流程 如 图 1-6 所 示 ， 相 应 代 公 如 下 : 


Matlab 微分 方程 高 效 解 法 : 谱 方 法 原理 与 实现 
程序 1-4 


主 程序 代码 如 下 : 
clear all: close all: 
n=0; m(1)=1; alpha=0: beta0=ー2: 
while n= テ 0|labs(beta(n)-beta0)>=le-6 
nn 十 ] ・ 
% 在 猜测 的 初始 条 件 下 求解 初 值 问题 
[x,usollj=ode43(shoot,[0 4],lalpha m(n)|): 
beta(n)usol(end,1 ): 
1f ローー 
m(2)=m(1)-0.1; 
else 
% 线 性 插值 法 修正 m 的 取 値 
m(n+l )=m(n-1)+(m(n)-m(n-1))*(beta0-beta(n-1))/(beta(n)-beta(n-1)); 
end 


end 
plot(x,usol(:,1),'k','LineWidth',1.5), xlabel x, ylabel u 


文件 shoot.m 代码 如 下 : 


function du=shoot(x,u) 
du=[u(2); “abs(u(1))]; 


意 选 取 加 =m1 


并 计算 Bl 


图 1-6 打 臣 法 流程 图 
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代码 中 使 用 的 m 的 前 两 个 猜测 值 为 1 和 0.9， 程 序 仅 经 过 了 5 次 循环 ， 就 满足 条 件 
Bs+2|<10“， 得 到 结果 如 图 1-7 所 示 。 如 选取 m 的 前 两 个 猜测 值 为 -1 和 -1.1， 还 会 得 到 另 
外 一 个 截然 不 同 的 解 。 因 为 边 值 问题 的 解 往往 不 是 唯一 的 ， 所 求 得 的 解 与 狂 测 值 的 选取 有 
天 ， 这 是 边 值 问题 与 初 值 问题 的 一 个 很 大 不 同 。 


2.9 


0 0.5 1 1 .3 2 2.5 3 3.0 4 
X 


图 1-7 边 值 问题 的 解 


但 看 程序 运行 后 m 和 pi 的 前 5 个 值 ， 可 发 现 线性 插值 法 的 修正 效率 还 比较 令 人 


>> m(1:5) 
ans = 
1.0000 0.9000 2.0480 2.0640 2.0641 
>> beta( 1:5) 
ans = 


-0.9699 -0.8716 -1.984S -1.9999 -2.0000 
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1.2.2 pbvp 系列 招数 的 用 法 


与 专门 针对 初 值 问 题 的 ode 系列 函数 类 似 , Matlab 中 还 有 专门 用 于 解决 边 值 问 题 的 bvp 
系列 函数 ， 其 调用 语法 为 : 


sol = bvpsolver(odefun,bcfun,solinit,options) 


下 面 对 每 一 项 进行 说 明 : 

(1)“bvpsolver” 是 bvp 系列 函数 的 名 称 ， 可 以 是 bvp4c 或 bypSc, 后 者 比 前 者 的 精度 
高 一 些 。 

(2)“odefun” 是 包含 党 微分 方程 组 的 函数 句柄 ， 这 与 ode 系列 函数 中 的 odefun 是 一 
样 的 。 

(3) “bcfun” 走 包 含 辺 界 人 条件 的 函数 句 柄 。 

《4)“gsolinit” 是 包含 初始 网 格 结 点 、 初 始 猜测 值 的 结构 体 ， 由 bvpinit 函数 生成 。 

(5)“options” 用 于 改变 bvpsolver 的 默认 设置 ， 由 bvpset 函数 生成 ， 为 可 选项 。 

(6)“sol” 为 包含 计算 结果 的 结构 体 。 

如 不 需要 用 到 options， 则 bvp 系列 函数 的 调用 形 陈 为 : 


sol = bvpsolver(odefun,bcfun,solinit) 
用 于 生成 结构 体 solinit 的 bvpinit 函数 的 调用 语法 为 : 
solinit = bvpinit(x,uinit,params) 


其 中 : 

(1)“x” 为 计算 区 间 内 的 初始 网 格 结 点 ， 起 止 点 即 为 边界 条 件 所 在 的 两 处 位 置 ， 这 些 
结 点 需要 按 大 小 单调 排列 。 

(2)“uinit” 是 解 的 初始 猜测 值 ， 也 可 以 是 每 个 结 点 处 的 解 的 猜测 值 。 

(3)“params” 是 边 值 问题 中 的 未 知 参 数 〈 如 果 有 的 话 ) 的 猜测 值 ， 为 可 选项 。 

下面 挙 例 現 明 bvp4c 的 用 法 ， 边 值 问题 如 下 : 


Rn 0<x<7 
(1-75) 
u(0) =1, u(n) = x/e* —1 
先 利 用 代 換 =u、 w=u' 化 訪 一 恥 常 微分 方 程 外 形式 : 
es, = (1-76) 
u, =—u +2(x—De ， u (7) = /ex ー1 
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将 此 各 微分 方程 组 和 边界 条 件 分 别 写 进 shoot2.m 和 bc.m 中 , 用 bvp4c 求解 ， 代 码 如 下 : 
程序 1-5 

主 程序 代码 如 下 : 

clear all: close all: 

x 三 linspace(0,pi,20): 

solinit=bvpinit(x,[2 2]); 

%bvp4c 解 边 值 问 题 

sol=bvp4c((@shoot2,@bc,solinit); 

% 从 结构 体 sol 获取 指定 位 置 的 数值 结 

u= デ deval(sol,x): 

% 解 析 解 

u exact=cos(x)+x.*exp(-x); 

% 画 関 

plot(x,u(1,:),'+k',x,u exact,K, MarkerSize,10,LineWidth',1.5) 


set( gca,Fontsize',16), xlabel x, ylabel u 
legend('bvp4c'' 解 析 解 !0), axis([0 pi -1 1.5]) 


文件 shoot2.m 代码 如 下 : 


function du=shoot2(x,u) 


du=[u(2); -u(1)+2*(x-1)*exp(-x)]; 


文件 bc.m 代码 如 下 : 

function res=bc(ua,ub) 

% 边 界 条 件 

res=[ua(1)-1; ub(1)+1-pi/exp(pu)l; 


这 里 重点 说 明 一 下 包含 边界 条 件 的 文件 bcm， 其 中 定义 了 一 个 同名 函数 bc, 参 数 ua 
和 ub 分 列 代 表 左 辺 界 和 右 辺 界 的 情況 。 其 中 , ua(1) 和 ua(2) 为 函数 在 左边 界 的 取 值 和 一 阶 
导数 , ub(1) 和 ub(2) 为 函数 在 右边 界 的 取 值 和 一 阶 导数 。 代 人 码 中 的 “ua(1)-1” 束 是 ua(1)-1=0 
的 人 简写， 代表 边界 条 件 (0)=1, 同 理 , “ub(1)+1-pi/exp(pi) ” 表示 u(x)=r/e"-1。 

代码 中 的 初始 猜测 值 为 由 =2、2=2， 假 如 边 值 问 题 的 解 是 唯一 鸣 ， 初 始 猜测 值 的 选 
取 是 不 会 影 啊 结 果 的 。 图 1-8 同时 显示 了 bvp4c 得 到 的 数值 解 和 式 〈1-75) 的 解析 解 
u=cos(X)+xe ， 二 者 相当 吻合 。 值 得 一 提 的 是 ， 如 果 在 bvpinit 函数 中 选取 的 初始 网 格 
结 点 数量 偏 少 的 话 ， 会 造成 数值 解 和 解析 解 存 在 一 定 的 锚 寞 ， 在 这 一 点 上 ，bvp4c 比 打 
靶 法 更 难 使 用 。 
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1.5 
+ bvp4c 
1 ーー 解析 和解 


0.5 


0 0.5 1 1.5 2 2.5 3 


图 1-8 边 值 问题 的 数值 解 与 解析 解 
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害 2 草 ”有限 考 分 法 和 有 限 元 法 


有限 差分 法 (finite difference method) 和 有 限 元 法 (finite element method) 是 两 种 历史 
悠久 且 十 分 成 熟 的 求解 俩 微分 问题 的 方法 ， 相 关 书 籍 众多 。 本 章 只 介绍 其 价 单 的 应 用 ， 一 
来 帮助 读者 了 解数 值 方法 的 发 展 过 程 ， 二 来 可 供 读者 将 这 两 种 方法 与 后 续 章 节 中 的 谱 方 法 
做 比较 。 


2.1 有限 圭 分 法 


2.1.1 有限 差 分 法 中 的 数值 微分 


数值 微分 是 根据 函数 在 一 些 离散 点 的 值 计算 它 在 茶点 的 工 阶 导 数 或 高 阶 导 数 近 似 值 的 
万 ) 先 从 -个 最 简单 的 例子 开始 ， 在 区 间 [a， ヵ ] 上 取 一 系 列 同 距 妨 h 的 点 : 0 ル 1。 ..., My 
如 图 2-1 所 示 。 


の b 


Xo X1 や > の x es XN * 


图 2-1 取 区 间 上 等 间距 的 离散 点 


要 利用 函数 w(x) 在 这 些 点 上 的 取 值 u(x) 来 计算 wo 和 w”(x)) 的 近似 值 。 最 直接 的 办 法 
束 是 通过 泰勒 公式 将 u(xi41) 在 x=xi 处 展开 ， 整 理 可 得 : 


u (x;) = 2 u(x) u(x;)]- "CE,), くく (2-1) 


閣 上 式 右端 的 小 量 O(O 作 为 局 部 帘 断 误 兰 忽略 挥 ， 可 得 计算 w(x) 的 公式 (2-2)。 由 于 
xi 在 大 的 前 面 ， 所 以 称 乙 为 工 阶 导 数 的 回 前 兰 商 。 


6) = Tu ) ex 0 <7 く W -]1 (2-2 ) 


注意 上 式 中 的 i 是 不 能 取 到 WN 的， 除非 还 有 条 件 给 出 u(xw+h) 的 值 。 或 者 ， 对 于 周期 为 
p-ath 的 周期 图 数 u(x)， 可 得 u(xw+h)=u(xo)， 那 么 i=N 时 有 w(xw)=[u(xo)-u(xv)]J/4。 为 外 ， 
式 (2-2) 的 局 部 截断 误 拳 为 O(h)， 从 理论 上 讲 , ヵ 越 小川 精度 越 高 , 但 实际 上 当 hh 过 小 时 ， 
(x) 和 wo 将 是 两 个 十 分 接近 的 数 ， 它 们 相 减 会 造成 有 效 数 字 的 损失 ， 引 起 误差 增加 。 
所 以 hh 的 选取 不 可 过 大 或 过 小 。 

同 理 ， 还 可 以 得 到 1 随 号 数 的 向 后 差 商 : 
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u(x,) = Tu) I EN 23 
类 似 地 ， 分 别 将 u(x) 和 u(xi_ 1) 在 x=xi 处 做 泰勒 展开 ， 相 减 并 整理 ， 得 : 


2 
u (x;) = es) ー( 一 ンー くく (2-4) 


忽略 小 量 OU0)， 就 是 1 阶 导数 的 中 心 差 商 公式 ， 它 的 精度 要 高 于 向 前 差 商 和 向 后 差 商 : 
u'(X,) = Fr lula) —u(x, 1)], l<i<N-l (C235) 
此 外 ， 分 别 将 w(xai1) 和 w(xi_ 1) 在 x=x; 人 处 做 泰勒 展开 ， 相 加 并 整理 ， 得 : 


2 
7 (x;) = ui) ー2() 二 (一 と (51), エコ くら < Xi (2-6) 


忽略 小 量 O⑰②, 即 妨 2 阶 导 数 的 中 心 差 商 公式 : 


W(X = zu) —2u(x;)+u(x;.,)], 1S7S く が ー]1 (CT) 


2.1.2 求 导 的 矩阵 形式 


2.1.1 小 节 给 出 了 数值 微分 的 原理 及 公式 ， 要 在 Matlab 中 实现 这 样 的 数值 微分 ， 既 可 
以 用 循环 语句 ， 也 可 以 用 矩阵 乘法 的 形式 。 众 所 周知 ，Matlab 在 窍 阵 运算 方面 的 速度 比较 
快 ， 而 且 和 矩阵 形式 的 代码 也 更 加 简洁 明了 ， 所 以 接 下 来 将 数值 微分 写成 矩阵 的 形式 。 

(1) 在 u(x) 为 周期 函数 旦 周期 为 bp-ath。 

1 随 呈 数 的 向 前 差 商 公式 可 号 妨 : 


u (X。) -1 1 u(xo ) 
u ( エ ) u(x;) 
: = ェ 和 : (2-8) 
(ret) -1 1 |u(xy) 
7 (。 ) 1 ー] 八 u(xxy) 
1 阶 导 数 的 回 后 差 商 公式 可 写 为 : 
u (Xo) 1 -1)]/ u(xo) 
u (Xi) -1 1 u(x;) 
中 : (2-9) 
u (Xs_) -1 1 U(x) 
U(x») -1 1 ルル (xy) 


1 阶 导 数 的 中 心 差 商 公 式 可 写 为 : 
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u (xo) 
u (x」) 
= 
_2h 
u (ZN 1) 
u (Xx) 


2 阶 导 数 的 中 心 差 商 公式 可 写 为 : 


2 (Xo ) ー2 
7 (x,) | 
: | 
だ 
7 (xX) 
7 (r。 ) 1 


(2) 若 有 条 件 给 出 u(xo- が の 和 ( 或 う u(xx+ か 的 債 。 


1 阶 导数 的 问 前 型 商 公式 可 写 为 : 
u'(Xo) -1 1 
7 (Yi ) 一 | 
二 
7 (XN_1) 
7 (Xx) 


1 阶 导数 的 向 后 差 丙 公式 可 写 为 : 


u'(Xo) 1 
u (2X0 ) -1 1 
1 ・ 


(ry) 
7 (Y。 ) 
1 随 号 数 的 中 心 差 商 公 


u (xo) 


7 名] 


u (ZN 1) 
u (xXx) 


2 際 号 数 的 中 心 奉 


第 2 章 有 限 差 分 
1 ー1)( u(xo) 
0 1 u(x,) 
-1 0 ux) 
-1 0 八 (XY。) 
] 1 1( u(xo) 
=2 .| u(x,) 
1 ご 2 Eas) 
1 -2 八 4(Y。) 
u(x。) 0 
u(x,) 0 
. 7 : 
ー-1 1 u(xy) 0 
ー1  &( テ 。 ) U(XN + か) 
u(x,) u(xo 一 
u(x,) 0 
ls 
h 
1 U(Xw_1) 0 
ー-1 1 /w(x») 0 
es) ] -Cn -月 
u(x,) 0 
; 
2h 
] A 0 
0 J\ ux) u(xw +h) 


法 和 有 限 元 法 


(2-10) 


(2-11) 


(2 ニ 12 ) 


(2-13 ) 


(2-14 ) 
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u (Xo ) -2 1 
u (x,) 1 -2 1 
> = 0 1 ; 2 
4 (Yy」) 1 -2 
7 (r。 ) 1 


ー ジ 


u(xXo) 


u(x ) 


u(xXw-_1) 


u(xx) 


有 


u(xo 一 万 ) 
0 
0 
U(XN +h) 


<2=15) 


下 面 用 实例 说 明 周 期 函数 wu)=e" 的 1 阶 、2 阶 导数 的 数值 计算 过 程 , 并且 与 相应 的 
解析 解 w(x)=ncos(nx)e 中、u"(x)=x efcos“(xx)-sin(rex)] 做 比较 ,代码 如 下 。 程序 输出 结 
果 如 图 2-2 所 示 ， 误 差 最 大 的 是 1 阶 导 数 的 同 前 差 商 公式 ， 而 1 阶 、2 阶 导 数 的 中 心 差 商 


公式 则 更 精确 ， 这 是 由 局 部 截断 误差 决定 的 。 
程序 2-1 
clear all: close all: 
L=2: N=50; h=L/N: 
x=h*|[-N/2:N/2-1]'; 
u=exp(sin(p1*x)); 
% 导 数 的 精确 解 
du exact(:,l1)=p1i*cos(p1*Xx).*u; 


du exact(:,2)=p1*cos(p1*x).*u; 


du exact(:,3)=p1^2*(cos(p1*x).^2-sin(p1*x)).*u 


%1 阶 向 前 差 丙 

e=ones(N,1); 

Dl forword=spdiags([-e el,[0 1],N,N); 
Dl forword(N,!1)=1; 

du(:,1)=1/h*D1 forword*u; 

%1 阶 中 心 差 商 

Dl _ center=spdiags(|-eel,[-1 1],N,N); 
Dl center(1,N ) ニ デー1: D1 center(N,1)=1; 
du(:,2)=1/(2*h)*D1 center*u: 

%2 阶 中 心 差 商 

D2=spdiags([e -2*e el,[-10 11],N,N); 
D2(1,N)=1; D2(N,1)=1; 
du(:,3)=1/(h^2)*D2*u; 

% 误 医 

error=max(abs(du-du exact)); 

% 画 图 

labels=1u"(x) Ju'(x)Ju"(x) | 


titles={'1 防 向 前 差 商 "1 阶 中 心 差 商 2 阶 中 心 差 商 候 ; 
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for n=1:4 
subplot(2,2,n) 


plot(x,u,'k',Line Width',1.5) 
xlabel x, ylabel u(x), title('u(x)=e^ {sin(\p1X)}') 
else 
plot(x,du exact(:,n-1),K,x,du(:,n-1),'.r, MarkerSize',13,LineWidth',1.5) 
title([ "Error {max!}=' num2str(error(n-1 ) ) |) 
xlabel x, ylabel(labels(n-1 )) 
text( 一 1.min(du( :,n-1 ) ),titles(n-1),FontWeighft',bold') 


end 
end 
u(x)=es™™) Errormax=0.53516 
3 5 
2.5 
2 
る 15 と 0 
づ づ 
1 
0.5 
0 _。 1 阶 向 前 差 商 
一 ] 一 0.9 0 0.5 1 一 ] ー0.3 0 0.5 1 
X X 
Errormax=0.0333 Errormax=0.13851 
TSN の 
0 
る -10 
づ 
一 20 
1 阶 中 心 差 商 2 阶 中 心 差 商 
_5 ー30 
一 ] ー0.5 0 0.5 ] 一 ] ー0.3 0 0.5 ] 
X X 


图 2-2 1 阶 癌 前 差 商 、1 阶 中 心 兰 商 、2 阶 中 心 牵 两 的 结果 (点 ) 与 解析 解 〈 曲线 ) 


2.2 ” 仿 短 分 方程 的 牵 分 解法 


2.2.1 ”一 维 刘 松 方程 


考 夸 区 域 吕 上 的 二 维 油 松 问题 : 
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2 
ー > + 2 u= f(x,y), (x,y) どく ) 
Ox” Oy 


ul = の (エア ) 


其 中 ，68 为 区 域 8 的 边界 ，f x, 和 p(x,y) 为 已 知 函 数 。wlao=p(x, yy 描述 了 函数 在 
边界 上 的 取 值 ,， 即 所 谓 的 边界 条 件 。 为 简单 起 见 ， 这 里 仅 讨论 8 为 算 形 的 情况 ， 即 a<x<b， 
c<y<d。 首 先 ， 用 间隔 友 =(5-@/N、 か =(d-c)/M 分 別 将 x 箇 上 的 区 同 [a, 6]、» 轴 上 的 区 间 [c， 
中 划分 为 N、M 等 分 , 得 x;=atih1、0 记 i NN 和 y=ctjh，、0 三 ] 三 M。 再 根据 x; 和 yj 对 矩形 
区 域 进行 网 格 剖 分 ， 如 图 2-3 所 示 。 横 线 与 紧 线 的 交点 就 是 网 格 结 点 ， 称 位 于 边界 68 上 的 
结 点 为 边界 结 点 ， 其 余 结 点 为 内 结 点 。 


(2-16) 


图 2-3 ”和 窍 形 区 域 的 网 格 剖 分 


在 内 结 点 处 考 碟 油 松 问题 : 


U(x;,y,) Ou(x,,y,) 
ー = f(x;,y,), 1S7 く パー-1。 I1< <M-l1 (2-17) 


由 泰勒 公式 ， 有 : 


Ou(x,,y,) 1 が ul(E,.,y,) 
a OD) GI) I) (2-18) 
ルー < Oy < CH 
U(x,,y;) 1 h? O u(xi, 1;) 
NN 1 yy. )-2 ,了 站 十 = アッ 0 
5 所 2 アコ リー 2 アリ (セア 12 る (2-19) 


Vo や 0 キリ al 
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将 以 上 两 式 代 入 式 〈2-17)， 忽 略 小 量 ("+ か ^), 井 使 用 筒 号 wj=u(%wi, yj)， 得 到 差分 
格式 (2-20)。 所 谓 差分 格式 ， 就 是 用 几 个 相 邻 数值 点 的 差 商 来 蔡 代 方 程 中 的 导数 或 偏 导数 
的 近似 算法 。 


1 1 1 1 1 1 
及 時 5 :去 + 去 且 時 0 i = Ff;,Y,), (2-20) 


0 | 
完 定义 问 量 wi: 
Uj = (Ul;; Uyys うら 2 0O<j<M (2 クト) 
再 閣 差分 格式 (2-20) 写 为 矩阵 形式 : 
Du,,+Cu,+Du,,, =f,;, 1S ミ 7 ミル ー1 ( 2522 ) 


其 中 , 和 下降 C、 の 、 同 量 万 的 定 又 如 下 , 注意 向 量 万 的 首尾 元素 己 包 信 」 =g 和 x=b 
处 的 边界 条 件 。 


1 1 ] 
2 + キ ーー = 
| 
] 1 1 ] 
= クー ニー キー ee 
| 6 及 
C= ce a 5 (2-23) 
1 ee ] 
二 = っ a 
E 本 及 
了 工 + 工 
用 な な 
1 
hh 1 
6 キテ の 0o ア ) 
hh f (X37)) 
りこ a : (2-24) 
三 f (CCw_ 2， 
2 ] 
| NO 


な 


式 (2-22) 还 可 以 进一步 写成 如 下 的 矩阵 形式 ， 注 意 等 号 右边 向 量 的 首尾 元 素 加 入 了 
y=c 和 y=d 处 的 边界 条 件 。 
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C の U, fi — Du, 
の C の か の / の た 
Sb a : (2-25) 
DC Dw, fu 
D Cl uy アコ ュー クル 


因此 , 窃 形 2 上 的 二 维 泊 松 问题 就 转化 为 上 面 形 如 A4u=f 的 矩阵 问题 。 对 于 这 类 问题 ， 
最 直接 的 解法 就 是 先 求 4 的 首 矩 阵 4”, 然 后 w=4 ~f 即 可 ， 这 在 Matlab 中 可 用 左 除 “\” 
突 現 。 注 意 式 (2-22) 只 针对 内 结 点 ， 所 以 C、D 均 是 N-1 阶 方 阵 ，4 是 (N-1)(M-1) 阶 方 
阵 。 下 面 给 出 一 个 实际 例子 。 


6^ 0” 2 > 
ー| ニテ +ー テ lu=(7 一 De sin(ry), 0<x<2, 0 < 了 <1 

Ox” Oy 
u(0, y) = sin(ny), u(2,y) =e* sin(ny), 0 ミッ ミ 1 (2-26 ) 
u(x,0) =0, u(x,l) = 0, 0<x<2 


根据 式 (2-25) 求解 这 个 泪 松 问题 ， 代 码 如 下 : 
程序 2-2 
clear all: close all: 
% 生 成 网 格 上 的 坐标 
h=0.1: x=[0:h:2]'; y=[0:h:1]'; 
N=length(x)-1; M=length(y)-1: 
[X,Y |]=meshgrid(x,y); 
% 解 析 解 
u analytical=exp(X).*sin(p1*Y ); 
X=X(2:M,2:N); Y=Y(2:M,2:N): 
% 生 成 fx,y) 的 年 降 
f=(pi“2-1)*exp(X).*sin(pi*Y); 
f(:,1)=f(:,1)+sin(p1i*y(2:M))/h’2; 
f(:,end)=f(:,end)+texp(2)*sin(p1*y(2:M))/h’2; 
% 构 造 矩 阵 D、C、A 
e=ones(N-1,1); 
C=1/h^2*spdiags([-e 4*e -el,[-1 0 1],N-1,N-1); 
D=-1/h^2*eye(N-1); 
e=ones(M-1,1); 
A=kron(eye(M-1),C)+kron(spdiags([e el],[-1 1],M-1,M-1),D); 
% 左 除 求 解 
ff: u=Zzeros(M+1,N+1); 
u(2:M,2:N)=reshape(A\{f(:),N-1,M-1)'; 
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uU(:,1)=Sin(pl#y); u(:,end)=exp(2)*sin(pi*y); 
% 国 网 

figure(1), Spy(A, ,10) 

figure(2), subplot(2,2,1), mesh(x,y,u) 
xlabel x, ylabel y zlabel u 

subplot(2,2,2), mesh(x,y,u-u analytical) 
axis([020100.04]) 

xlabel x, ylabel y, zlabel Error 


程序 输出 结果 如 图 2-4 所 示 ， 左 图 为 = ん =0.1 时 泊 松 问题 (2-26) 的 数值 解 ， 右 图 
为 数值 解 与 解析 解 x=esin(o) 之 间 的 误差 。 当 然 , 进一步 缩小 有 和 思 会 以 增加 运算 量 为 代 
价 降低 这 个 误差 。 


Error 


图 2-4 数值 结果 〈 左 图 ) 和 误差 ( 右 图 ) 
为 了 使 读者 产生 直观 的 理解 ,， 图 2-$ 显示 了 加 =ho=0.2 时 方 阵 4 的 非 零 元 素 分 布 情况 。 


0 5 10 15 20 25 30 35 


图 2-5 方 降 4 的 非 零 元 素 分 布 
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2.2.2 ”一 维 热传导 方程 


考虑 一 维 热传导 问题 : 


OU 

aa < 

A っ f(x,t), 0<x<1, 0<7 く 7 

u(x,0) = の (と ), Us <] (2=27) 
u(0,1) = &(7), u(l,t)= p(t), 0<t<T 


其 中 ga 为 正和 常数 ,f(x, の 、 g<)、 @(⑰ の 和 の 0 罰 己 知 語 数 。 (x, 0)=g(X) 给 出 了 函数 在 1=0 
時 刻 的 取 信 , 即 初 始 条 件 。 (0,=g(⑰ の 和 w(1, 人力 =B(D) 给 出 了 函数 在 边界 上 的 取 值 ， 即 边界 
条 件 。 

首先 ， 以 空间 步 长 r=1/NV、 Ni 长 r=TAM 分 别 将 x 轴 上 区 间 [0, 1]、7 箇 上 区 同 [0, 7 
分 成 N、M 等 分 ， 得 x=ih、0 三 iN 和 4=kr、0 记 kM。 再 根据 x; 和 和 妇 对 计算 区 域 做 网 格 
剖 分 ， 如 图 2-6 所 示 。 模 线 与 竖 I 称 在 =0、x=0 或 x=1 上 的 结 点 为 边 
界 筑 点 , 其 余 簿 点 力 内 筐 点 。 
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LM 
ん 
a 
to 
图 2-6 寸 算 区 域 的 阿 格 剖 分 
然后 在 结 点 处 考虑 热传导 问题 : 
Rh OY 1 く <7 く パー-1. OS ん S 7 -1 (2-28) 
根据 泰勒 公式 ， 有 : 
u(x;,t,) 1 2 の (6 ん) ) 
ー as 7 —|u(x, ly ) 一 2u(x,,t (ん 7 i 12 “0 (2-29 ) 
el oe で WI 
ou(x;,t,) 1 7 O°U(X;, Mi ) 
a UO ラー | (2-30) 


将 上 面 两 式 代 入 式 〈2-28)， 并 将 小 量 O(t+A) 作 为 局 部 截断 误差 忽略 掉 ， 同 时 引入 步 
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长 比 r=avh*， 并 使 用 简写 w=u(x;, 9), 得 差分 格式 : 
ut =(1—2r)u + Fu + Tf (xt), TEIEN-1l, 0SS 7 -1 (2 291) 


图 2-7 显示 了 差分 格式 (2-31) 所 涉及 结 氮 的 相对 位 置 。 要 计算 函数 二 在 Co 如 0D) 处 的 
取 值 ， 残 需要 用 到 其 在 Cu が 0、 Gp 内 和 (cn 如 处 的 取 值 。 


パー1 Xi Xi+tl 
| 人 
な 


图 2-7 差分 格式 (2-31) 所 涉及 结 点 的 相对 位 置 


最 后 , 格式 (2-31) 写成 矩阵 形式 (2-32)， 注 意 最 右 端 向 量 的 首尾 元 素 已 包含 了 边界 
和 条件。 这 样 , 通过 一 次 和 矩阵 相 滋 和 相 加 天 可 以 由 ( の, …。 2 が 2 1 ) 得 到 (wu, 


k+l ん 1、T 
UN-2  » 7/W_1 ) 。 


ur 1-27 rr ur rT f(x,t,) +rus 
us r 1-2r 7 us fb) 
= : 十 : (2-32 ) 
gH k 
UN が 1-2r 7 UN_2 Tf (XN_2,ti) 
pa 6 
UN / 1ー2 ァ ルル uw Tf tk) + ruy 


需要 强调 的 是 ， 当 步 长 比 r=atw/h? 志 1/2 时 ， 差 分 格式 〈2-31) 是 稳定 的 ， 反 之 则 是 不 
稳定 的 , 计算 结束 也 不 可 信 。 这 一 稳定 性 条 件 称 为 CFL 条 件 , 该 条 件 是 根据 提出 者 Courant、 
Friedrichs、Lewy 的 名 有 命名 的 ， 它 保证 了 误 关 和 噪声 在 欠 代 的 每 一 步 中 都 不 会 放大 ， 证 
明 从 略 。 下 面 看 一 个 实例 : 


2 
ou Ou 0<x<1, 0<7 く 1 

ot pc 

u(x,0)=e*, 0 さ x<1 (2-33 ) 


(0.)=e。 ull,t)=e', 0<7 く 1 


根据 有 限 差 分 法 的 矩阵 形式 〈2-32) 计算 热传导 问题 (2-33), 代 偶 如 下 : 


程序 2-3 
clear all: close all: 
a=1; h=0.05; x 三 |0:h:1 |: 
tau=0.00125: t=[0:tau:1|; 
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方法 原理 与 实现 


~- 
用 


Matlab 微分 方程 高 效 解法 : 


rーa*tau/h^2・ 


length(1)-1: 


N=length(x)-1: M 


% 构 造 矩 阵 


Ones(N-1,1): 
spdiags([e 1-2*e el],[-1 0 1] 


% 设 置 初始 条 件 和 
u 三 ZeTOS( N 十 


T ネ 
u(:,1) 


ee 二 


N-1,N-1); 


う 


A= 


界 条 件 


边 


M+1); 


exp(X); 
exp(t); 


2 


u(1,:) 


=exp(1+t); 


u(end,:) 


\ 


SN 


% 有 限 差 


for n=1:M 


=A*u(2:N,n); 


u(2:N,n+l) 


u(2,n+1)=u(2,n+l)+r*u(ln); 


u(N,n+1)=u(N,n+1)+r*u(end,n); 


end 


% 国 图 


subplot(2,2,1 ) 


mesh(t(1:20:end),x.u(:,1:20:end)) 


xlabel t, ylabel x, zlabel u 


subplot(2,2.2) 


mesherid(t(1:20:end),x): 


% 旋 解析 和解 的 振 邦 


1 


mesh(t(1:20:end),x,exp(X+T)-u(:,1:20:end)) 


xlabel t, ylabel x, zlabel Error 


程序 输出 如 图 2-8 所 示 ， 左 图 为 数值 结果 ， 右 图 为 数值 结果 与 解析 解 w=e™ 之 间 的 误 


差 .程序 使 用 的 步 长 比 xr=1/2， 所 以 计算 过 程 是 稳定 的 。 


I 


数值 结 采 《〈 左 图 ) 和 误 兰 〈 右 图 ) 


图 2-8 
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2.2.3 ”一 维 波动 方程 


考虑 如 下 一 维 波动 方程 : 


Ou 20° 

一 二 一 0 ーーー /f(x,t), 0<x<1l, 0<t<7 

の “ ae 7 の 

u(x,0) = @(x), MD yr), 0<x<l (2-34) 


u(0,t) =a(, ul = の 0。 0<7 く 7 


其 中 ，a 妨 正 常 数 , / (Cr, 7、gC)、w()、g⑦ 和 00 为 已 知 函 数 。 这 里 的 计算 区 域 网 格 
前 分 过 程 和 2.2.2 小 节 完 全 一 样 ， 就 不 再 歼 述 。 在 结 点 处 讨论 一 维 波 动 方程 ， 有 : 
0* u(x;,t,) の の u(x;,t) 


1 = jc) IEIiIEN-1 1 くん く 77 -1 (2-35) 
ot ox’ 
由 泰勒 公式 ， 有 : 
u(x;,t) 2 の u(G ,th ) 
ia = uC) ust) HUG っ 4 (2-36) 
Nil < Gir < Xin 
u(x;,t) な 2 の U(X;, 7x) 
= Fu) - MU TU 4 ・ (2-37) 


lil < Nir < tren 
将 上 两 式 代入 式 (2-35)， 并 将 小 量 O(r*+h7) 作 为 局 部 截断 误差 忽略 掉 ， 同 时 引入 步 长 
比 s=at/h1n， 并 使 用 简写 uw が =u(x;, 0), 得 差分 格式 : 


が = SU +2 us +s Wu +T fx,t,) 


1S7 く パー1。 1S く XS ルル 7 -] 


(2-38 ) 


根据 CFL 条 件 ， 仅 当 步 长 比 s 全 1 時, 上 式 オ 臣 穏 定 的 , 民 差 也 会 彼 控 制 在 絞 小 的 程 
度 , 证 明 从 略 。 如 图 2-9 所 示 为 此 差分 格式 所 涉及 结 点 的 相对 位 置 。 要 计算 函数 在 (xi, tn) 
处 的 取信， 殊 需 要 用 a 到 沙 数 4 在 (xii 0、 Cp め 、Gar 如 及 Geo ti) 处 的 取 值 。 


图 2-9 ”差分 格式 (2-38) 所 涉及 结 点 的 相对 位 置 
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将 差分 格式 〈2-38) 与 为 矩阵 形式 〈2-39)， 注 意 最 后 一 个 同 量 的 首尾 元 素 已 包含 了 边 


天 条 1 
の 2(1 5^) Ss ur 
uy 5 2(1-s^) 5° US 
k+l 2 2 2 k 
UN_» S 2(1 一 个 ) “ UN_» 
人 s” 2( —s ) /un 


od 十 sd 


rf (x ,ti ) 


プア Gy っ な) 


I 十 SU 


值得 一 提 的 是 ， 计 算 最 开始 时 需要 两 个 已 知 向 量 : (wu, wus，.. 


(2-39) 


0 O、T 1 
っ UN-2 。 UN ) 和 (ui 9 


の ,WU > mi ) 。 第 一 个 向 量 可 直接 通过 初始 条 件 获 得 ， 即 好 =pCo)， 第 二 个 向 量 通常 


选用 欧 拉 法 来 近似 估算 ， 即 wi =g()+trw(xi)。 下 面 给 出 一 个 实例 。 


2 2 
OW OW gin), 0<x<1, 0<7 く 1 
Of” Ox 
u(x,0) =0, A se 0<x<1 

ot 
u(0,t) =0, (1 の =sin7 0<7 く 1 


根据 式 (2-39) 求解 上 式 ， 代 码 如 下 : 
程序 2-4 


clear all: close all: 

a=1; h=0.05; x 三 [0:h:1 |: 
tau=0.05: t=|0:tau: ll; 
s=a*tau/h; 

N=length(x)-1: M=length(t)-1; 
[T X]=meshgrid(t,x); 

% 构 造 窍 阵 
e=s^2*ones(N-1,1 ): 
A=spdiags([e 2*(1-e) el,[-10 1],N-1,N-1); 
% 设 置 初始 条 件 和 边界 条 件 
u=Zeros(N+1,M+1); 
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u(:,1)=0; u(:,2)=tau*x; 

u(1,:)=0; u(end,: )=sin(t); 

% 有 限 帮 分 

for n=2:M 
u(2:N,n+1)=A*u(2:N,n)-u(2:N,n-1)+ ... 

tau^“2*(T(2:N,n).^2-X(2:N,n).^2).*sin(X(2:N,n) ドド T(2:N,n)); 

u( 2.n 填 1 )=u(2,n+1)+s^“2*u( Ln); 
u(N,n+1)=u(N,n+1)+s^2*u(end,n); 

end 

% 画 图 

subplot(2,2,1) 

mesh(t,x,u), view(20,40), xlabel t, ylabel x, zlabel u 

subplot(2,2.2) 

% 与 解析 解 的 误差 

mesh(t,x,u-sin(X.*T)), view(20,40), axls([0 1 0 1 0 6e-5]|) 

xlabel t, ylabel x, zlabel Error 


程序 输出 如 图 2-10 所 示 , 左 图 为 数值 解 , 右 图 为 数值 解 与 解析 解 v=sinCc0) 之 间 的 误 兰 。 
代码 中 的 步 长 比 s=1， 此 时 差分 格式 是 稳定 的 ， 误 差 在 10 ”级 。 


ご 4 E> 
| ,| = 
2 NS 
一 
\ fe 
0 | 
NN 


图 2-10 ”数值 结果 〈 左 图 ) 和 误差 〈 右 图 ) 


至 此 ， 针 对 三 种 常见 偏 微分 方程 的 有 限 差分 法 原理 和 示例 就 介绍 完了 。 实 际 上 ， 有 
限 差分 法 还 有 更 多 深入 的 内 容 ， 限 于 篇 幅 没 有 在 此 处 提 及 。 人 简单 来 讲 ， 有 限 差分 法 的 核 
心思 路 就 是 通过 差 商 来 近似 偏 微 分 方程 中 的 偏 导 数 ( 如 : 6wBf、6w6r、6w6c)， 得 到 
可 直接 迭代 计算 的 差分 格式 ， 进 而 数值 求解 。 这 在 过 去 几 十 年 间 都 是 处 理 偏 微分 问题 的 
基本 有 效 手段 。 
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但 是 ， 有 限 差 分 法 是 一 种 局 部 的 方法 ， 即 每 个 位 置 的 导数 Cou/8x、9u/8x*……) 都 是 
由 临近 的 几 个 点 计算 而 来 的 。 计 算 过 程 中 所 使 用 的 矩阵 都 是 包含 很 多 0 的 稀 玖 矩阵 也 有 反映 
了 这 一 点 ， 因 此 它 的 精度 不 高 。 而 后 续 章 节 即 将 讨论 的 谱 方法 是 全 局 的 算法 ， 它 使 用 所 有 
己 知 点 来 计算 某 一 处 的 导数 ， 这 样 就 大 大 提高 了 精度 。 

另外 ， 在 包含 时 间 的 偏 微分 问题 中 ， 由 于 CFL 条 件 的 限制 ， 有 限 差 分 法 不 能 采用 较 大 
的 时 间 步 长 快速 地 得 到 结果 。 而 在 后 文中 ， 利 用 谱 方 法 求解 此 类 问题 时 ， 将 使 用 变 步 长 的 
ode 系列 函数 计算 6w6t, 无 需 选 定 固定 的 时 间 步 长 就 能 在 较 高 精度 的 前 提 下 尽快 得 到 结果 。 


2.3 有限 元 法 和 Matlab 偏 微 分 工具 箱 


有 限 差 分 法 直接 将 俩 微分 方程 离散 化 并 根据 泰勒 级 数 展开 写成 差分 格式 近似 求解 ， 而 
有 限 元 法 则 是 把 偏 微 分 方程 定 解 问题 转 化 为 一 个 等 价 的 变 分 问题 求解 。 较 之 有 限 差 分 法 ， 
有 限 元 法 的 一 个 突出 优点 就 是 它 可 以 解决 在 复 林 几何 形状 上 其 有 任意 边界 条 件 有 的 微分 问 
题 。 比 如 在 二 维 情况 下 ， 有 限 元 法 使 用 三 角形 单元 、 四 边 形 单 元 或 多 边 形 单 元 对 求解 区 域 
进行 剖 分 ， 这 束 能 轻松 适用 于 不 规则 形状 的 求解 区 域 。 

限于 本 书 主 虽 和 篇 幅 ， 本 节 不 阐述 有 限 元 法 的 复杂 原理 ， 而 是 介绍 一 球 Matlab 中 的 
基于 有 限 元 法 的 数值 模拟 工具 一 一 偏 微 分 工具 箱 (PDE toolbox) 的 操作 方法 。 简单 来 讲 ， 
偏 微 分 工具 箱 省 用 所 提供 了 3 个 功能 : 定义 偏 微分 方程 (设置 计算 区 域 、 边 界 条 件 、 方 
程 参数 ); 数值 求解 仿 微 分 方程 (产生 非 结 构 网 格 、 方 程 离 敬 化 、 得 到 近似 解 );， 将 结果 
可視 化 。 

在 平面 的 有 界 区 域 2 上 ， 偶 微分 工具 箱 可 处 理 以 下 4 闫 问题 : 

(1) 椭圆 型 (elliptic) 方程 : 


ーV .(cVu) +au = f (2-41) 
(2) 抛物 型 (parabolic) 方程 : 


dav.(eVu) +au=f (2-42 ) 


(3) 双 曲 型 (hyperbolc) 方程 : 


2 
ak vV. (eVu) tau=/ (2-43 ) 

(4) 特 征 eigen) 值 问 题 (4 为 未 知 特征 值 ): 
-V .(cVu) +au = Adu (2-44) 


其 中 ，YV 为 癌 量 微分 算 符 ，a、c、d、f 和 未 知 水 数 均 是 8 上 的 实 ( 复 ) 函数 ， 对 于 
抛物 型 和 双 曲 型 方程 ，a、c、d、f 也 可 以 包含 时 间 tt、 函数 w、 以 及 函数 的 梯度 。 此 外 ， 
偏 微 分 工具 箱 还 可 以 处 理 方程 组 的 情况 。 
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在 边界 2 处 ， 边 界 条 件 有 3 种 选择 : 
(1) 狄 利 元 业 (Dirichlet) 边界 条 件 ， 它 给 出 了 函数 在 边界 上 的 取 值 : 
hu=r (2-45) 


其 中 , 7 和 ヶ 可以 是 室 同 (x 和 y)、 函 数 久 以 及 时 间 1 的 函数 。 
(2) 诡 依 曼 (Neumann) 辺 界 条件 , 世 省 出 了 函数 z 的 変化 率 在 辺 界 上 的 情況 : 


n:(cVu)+qu=g (2-46 ) 


其 中 , 同 量 ヵ 代表 辺 界 姓 向 外 的 法 袋 方 向 。 7、g 可以 走 空 同和) め 、 綱 数 ヵ 以 及 時 
同 7 的 員数 。 
(3) 混和 边界 条 件 ， 即 同时 存在 前 两 种 边界 条 件 《〈 仅 限 方程 组 的 情况 )。 


2.3.1 基本 操作 


在 Matlab 中 输入 pdetool 并 回 车 , 可 央 効 圏 形 界面 化 的 偽 微 分 工具 逢 , 如 图 2-11 所 示 。 
界面 的 上 侧 有 一 个 工具 栏 ， 供 用 户 方便 、 快 捷 地 进行 常用 操作 ， 如 图 2-12 所 示 。 工具 枯 中 
每 个 按钮 的 作用 见 表 2-1。 

画 PDE Toolbox - TUntitied] 
File Edit Options Draw Boundary PDE Mesh Solve Plot Window Help 


导弹 [FJ] | | で | > | ao | PDE | へ | 人 る | = | = 在 | で や | Generic Scalar 


Set formula: 


图 2-11 修 微 分 工具 箱 界面 


局 | 国富 | | *| eel pom| へ | 会 | = | る | | 


图 2-12 工具 栏 
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表 2-1 工具 栏 按钮 说 明 


| 从 顶 后 开始 创建 矩形 /正方 形 。 用 鼠标 左 键 点 击 和 拖 上 忠 创 建 窍 形 。 用 眠 标 右键 (或 Cr+ 左 鍵 ) 点 击 和 拖 
| | 曳 倒 建 正方 形 


[ エ ] 从 中 心 开始 创建 矩形 /正方 形 。 用 鼠标 左 键 点 击 和 拖 上 忠 创 建 窍 形 。 用 眠 标 右键 (或 Crl+ 左 鍵 ) 点 击 和 拖 
Je | 曳 倒 建 正方 形 

つう 从 边缘 开始 创建 椭圆 形 / 圆 形 。 用 鼠标 左 键 点 击 和 拖 忠 创建 椭圆 形 。 用 鼠标 右键 (或 Crr+ 左 鍵 ) 点 击 和 
ーー 拖 暇 创建 圆 形 
2 

站 三 ， 


从 中 心 开 始 创 建 李 圆 形 / 圆 形 。 用 鼠标 左 键 点 击 和 拖 忠 创建 椭圆 形 。 用 鼠标 右键 (或 Ctrl+ 左 键 ) 点 击 和 
拖 忠 创建 圆 形 


创建 多 边 形 。 用 鼠标 左 键 点 击 和 拖 上 忠 创建 多 边 形 的 边 ， 最 后 使 用 右键 或 点 击 多 边 形 的 起 点 来 闭合 多 边 形 
设置 边界 条 件 


PDE | | 。 设置 偏 微分 方程 参数 
| 初始 化 三 角 网 格 
全 | | 加 窗 三 角 网 格 
一 解 偏 微分 方程 
= 


画图 设置 对 话 框 


对 可 视 化 结果 进行 缩放 


下 面 以 一 个 最 简单 的 实例 介绍 偏 微分 工具 箱 的 大 致 操作 步骤 。 

(1) 用 工具 栏 的 前 5 个 按钮 创建 和 矩形/ 正方形、 椭圆 形 / 圆 形 或 者 多 边 形 ， 双 击 创 建 的 
图 形 可 精确 设置 其 位 置 和 和 尺寸。 如 有 和 需要， 可 使 用 Draw 末 蛙 下 的 Rotate 选项 对 图 形 进行 
旋转 操作 ， 还 可 以 使 用 Options 菜 単 下 的 Grid 选项 加 入 网 格 以 便 创建 图 形 时 参考 。 显 示 区 
域 的 坐标 范围 在 Options 菜单 下 的 Axes Limits 设置 , 勾 和 Axes Equal 可 使 横 纵 坐标 的 显示 


比例 一 致 。 珑 形 /正方 形 参数 设置 对 话 框 如 图 2-13 所 示 ， 设 置 内 容 包 括 左 边 、 下 边 所 在 位 
置 ， 以 及 长 宽 和 名 称 。 


图 0bject Dialog 癌 回 X 


RIBCt type: Rectariglg 


Letft: 


图 2-13 ”设置 矩形 /正方 形 参 数 


椭圆 形 参 数 设 置 对 话 框 如 图 2-14 所 示 , 设置 内 容 包 括 椭圆 中 心 的 坐标 、 半 轴 长 度 、 旗 
转角 度 和 名 称 。 
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加 Object Dialog _ P34 


hiect type: Ellipse 


-CENter. 

T=-center: 

上 -SEMIaxes: 
B-semiawes: 
Rotation rdegreesl: 


Narme: 


mm 


图 2-14 设置 椭圆 形 参数 


圆 形 参数 设置 对 话 框 如 图 2-15 所 示 ， 设 置 内 容 包 括 圆 心 的 坐标 、 半 竹 和 名 称 。 


bhject type: Circle 
站 -CENter: 

YY -Center: 

Radius: 


ae: 


ーー 一 


图 2-15 设置 圆 形 参 数 


多 边 形 的 参数 设置 对 话 框 如 图 2-16 所 示 。 设 置 内 容 为 多 边 形 每 个 顶点 的 坐标 。 

(2) 每 创建 一 个 图 形 ， 界 面 上 Set formula 后 的 文本 框 内 都 会 出 现 该 图 形 的 名 称 ， 名 称 款 
认为 “字母 + 序号 ”的 形式 。 邓 母 是 形状 的 缩 号 ，R 代表 矩形 、SQ 代表 正方 形 , E 代表 椭圆 
形 , C 代表 圆 形 ，P 代表 多 边 形 。 用 加 / 减 写 连接 这 些 图 形 的 名 称 ， 仿 微分 方程 的 求解 区 域 即 
是 这 上 坚 图 形 进行 加 、 减 的 结 示 ， 比 如 这 里 设置 为 RI-SQI-CI+EI+P1， 如 图 2-17 所 示 。 

加 0b ject Dialog _ 03 


Dbject type: Fnlyda 


Coordinates: | 0.4953. -0.196 
-value edt hax: 0.49633699633699679 
TY edit box -0.19597069597069572 


ame: Ip1 


に al 


图 2-16 设置 多 边 形 参 数 
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回 PDE Toolbox —- [Untitled] 問 回 X※ 


Eile Edit Options Draw Baundary PDE Mesh Solve Plot Window Help 


CICIPF|eolroe| 介 | 倒 | = | | [cenenescaar Iv| “om NM 


Set formula: R1-SQ1-C1+E1+P1 


0.2 


-1.5 -1 -0.5 0 0.5 1 1.5 


Info: Click and drad at Corner to create rectangle. RE 


图 2-17 偶 微 分 方程 的 求解 区 域 


(3) 点 击 工具 栏 上 9 按钮 ， 进 入 边界 模式 ， 可 对 每 一 段 外 边界 设置 不 同 的 边界 条 件 ， 
如 图 2-18 所 示 。 不同 边界 条 件 由 颜色 区 分 ， 狄 利克 莱 边 界 条 件 为 红色 , 诺 依 曼 边界 条 件 为 
葛 色 ， 泥 和 边界 条 件 为 绿色 。 


， | ee 
加 PDE Toolbox - [Untitled] に J ロ 3 
File Edit Options Draw Boundary PDE Mesh Solve Plot Window Help a 


| 四 | 人 | >|lealroel 和 へ | 会 | = | 名 [oeresar i 


Set formula: 


Info: Click to select boundaries. Double-click to open boundary condition dialog box. 


图 2-18 选择 边界 
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双击 一 段 外 边界 ， 弹 出 边界 条 件 设 置 对 话 框 ， 如 图 2-19 所 示 。 可 选择 狄 利 死 沫 


“Dirichlet” 或 话 依 曼 “Neumann” 边 界 条 件 ， 并 根据 边界 条 件 的 表达 式 (2-45) 或 〈2-46 )， 
设置 hr 或 g、g 的 取 值 ， 式 (2-46) 中 ce 的 取 值 在 下 一 步 设置 。 


回 Boundary Condition el xX 


conditian type: coefficiant Descriptian 


( ) Neumann 


图 2-19 设置 边界 条 件 


(4) 点 击 工具 栏 上 Eee 按钮 ， 弹 出 偏 微分 方程 参数 设置 对 话 框 ， 先 在 左 侧 选择 偏 微分 


方程 的 类 型 ， 然 后 在 右 侧 设置 具体 参数 的 取 值 。 本 例 中 选择 椭圆 型 方程 “Elliptic” 参数 取 
值 如 图 2-20 所 示 。 


PDE Specification 問 回 ※ 


Tyhe nf POE: Cnefficjert 


=) Elliptic 


( ) Paraholic 


( ) Hyperholic 


( ) Eiqgenmodes 


图 2-20 设置 俩 微分 方程 参数 


(5) 点 击 合 按钮 对 求解 区 域 进 行 三 角 网 格 剖 分 ， 如 图 2-21 所 示 。 
点 击 加 密 三 角 网 格 倒 J 按钮， 得 到 更 密集 的 网 格 。 也 可 根据 实际 需要 多 次 加 密 网 格 ， 


如 图 2-22 所 示 。 


(6) 反击 三 欣 钮 数值 求解 仿 第 分 方程 并 输出 结 末 ， 程 序 上 默认 使 用 颜色 表示 解 z 的 分 


布 ， 如 图 2-23 所 示 。 
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加 PDE Toolbox - [Untitled] 
File Edit Options Draw Boundary PDE Mesh Solve Plot Window Help 


= EE Cr 


Set formula: 


< 


X/\/ VY 
ERO も 


ぐ _ 
CS 


WS 


た 
の / 
WM 


Info: Iniialized mesh consists of 187 nodes and 292 triangles. el 
图 2-21 三 角 网 格 剖 分 


Tb - [Untitled] mm X 


Ee Et Oous VE Hou POE sk oO EtO Wundon Hale 


ロ | 還 | つつ | 用 | *」 ao | Pog| 公 | 个 | =| 寺 |eomeicscar jv|| ss Y nsoes 


Set formula: 


の OO Sb NR 
or RS RS 
に <N DA OU 
< CW 
AAAKAL AWAYAPAW の 7 

VAVAWAVAV 
AWAYAPAWAWY 


ピピ 
アピ ゾル レゾ 
レン 


A 
0 


〆 
/ 


な 
の ~ 
Xe 
人 SW 
マソ 


の 
の 


PR 
CA 
& 
の 


NN 


ノヽ 
(A 
アン に すか 


が WAS 


A 
ヽ ハ バ 
SSS 


ヘム ハッ 


KAO 
WAYAY な 4 が 八 
KN OX と UK お 


No アア ペン 
2 NN 
人 
SI yy て) 
AY 


// 
WM 


< 
> 
A 
CN K 
四 
ハハ / 
ツジ 


LN 
EE Ny AA 
の COOS た X ソ レツ Co 


ソ 


Info: Refined mesh cansists of 666 nodes and 11B8 triangles. | gw | 


图 2-22 ”加密 三 角 网 格 


(7) 点 击 允 按钮 ， 弹 出 画图 对 话 框 ， 可 在 这 里 设置 输出 图 像 的 类 型 。 除 了 彩色 图 
(CColor)， 还 有 等 高 线 图 CContour)、 矢 量 協 図 (Arrows)、 变 形 网 格 图 (Deformed mesh )、 
三 维 图 (Height), 也 可 以 设置 是 人 否 显示 坐标 网 格 (Plot in x-y grid)、 训 分 网 格 (Show mesh )。 
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这 里 选择 画 彩 色 三 维 图 并 显示 剖 分 网 格 ， 如 图 2-24 所 示 。 


File Edit options Draw Boundary PDE Mesh Solve Plot Window Help 


口 | E | | | や | a PDE | の | 全 | 一 | a | leonericscasr ~ X -0.489 Y. n8883 


Set formula: F 1-SC 


Color: u 


1 
0 8 0.9 
0.6 0.8 
0.4 0.7 
0.2 0.6 
0 0.5 
-0.2 0.4 
-0.4 0.3 
-0.6 0.2 
-0.8 0.1 
革 


Info: Pushto salye PDE. PE 


23 | 人 


Plot type: Property: User entry: Plot style: 


| Color 
| 


| | Gontour 


rows ゴゴ 
Howemeinew | 


ego = 


点 rirrrstign CJPtIGFS .…. 


| ] Plot in x-y grid Contour plot lewels: 20 | 区 | Plot solution automatically 


Show mesh Colormap: 


2-24 ”画图 设置 


点 击 Plot， 得 到 彩色 三 维 数值 结果 ， 如 图 2-25 所 示 。 
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加 Figure 1 

File Edit View Insert Tools Desktop Window Help 

ロロ Sk SDE ng 
Color: u Height: u 


图 2-25 彩色 三 维 数值 结果 


以 上 只 是 一 个 讲解 仿 微 分 工具 箱 使 用 步 又 的 傈 单 实例 。 和 针对 四 种 常见 类 型 的 具体 仿 微 
分 方程 ， 下 面 逐 一 给 出 例子 。 


2.3.2 ”二 维 铂 松 方程 


考虑 单位 圆 上 的 泊 松 问题 : 


(2-47 ) 


其 解析 解 为 v=(1-xz-)/4， 求 解 步骤 如 下 : 

首先 启动 偏 微分 工具 箱 ， 点 击 - 王 按钮 ， 按 住 Ctrl 键 同 时 鼠标 左 键 在 原点 按 下 并 拖 电 
到 合适 位 置 画 一 个 近似 的 单位 圆 。 双 击 此 圆 打开 图 形 参数 设置 对 话 框 ， 将 X-center、 
Y-center、Radius 分 别 设 置 为 0、0、1， 点 击 OK， 这 样 承 得 到 了 作为 求解 区 域 的 单位 圆 。 

点 市 - 軸 按钮 进入 边界 模式 ， 双 击 单位 圆 的 每 一 段 边 界 ， 弹 出 边界 条 件 设置 对 话 框 ， 
默认 为 1、/ ご 0 的 狄 利克 莱 边界 条 件 “Dirichlet”， 这 正 是 所 需要 的 ， 所 以 不 用 做 任何 修 
改 ， 点 击 OK。 如 果 若 干 段 边界 的 边界 条 件 是 一 样 的 ， 可 按 住 shift 键 同 时 选择 多 段 边 界 ， 
双击 后 一 起 设置 边界 条 件 。 

点 击 .Ee 按钮 打开 方程 参数 设置 对 话 框 , 方程 类 型 选 椭圆 型 “Elliptic”。 比 较 式 (2-41) 
和 式 《2-47)， 可 知 参数 取 值 如 下 : c=1、a=0、f=1。 填 入 参数 后 点 击 OK。 
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点 击 -全 按钮 初始 化 三 角 网 格 ， 随 后 可 根据 需要 多 次 点 击 伪 按钮 加 密 三 角 网 格 ， 程 序 


界面 的 最 下 方 将 会 显示 网 格 的 结 点 数 和 三 角 单 元 数 。 夺 选择 Mesh 菜 単 下 的 Show Node 
Labels， 将 显示 结 点 编号 ， 如 图 2-26 所 示 为 初始 网 格 及 其 结 点 编号 。 

MPDE Toolbox - [Untitled] 周回 ※| 

File t Options Draw Boundary PDE Mesh Solve Plot Window Help 

ロロ | 還 | の つ | の | *| ol Pog| 人 | 全 | =|@| [onsar 。 。 ト 


Info: Iniialized mesh cansists of 144 nodes and 254 triangles. 


图 2-26 显示 结 点 编号 


要 导出 网 格 剖 分 的 数据 信息 ， 点 击 Mesh 菜 単 下 的 Export Mesh， 出 现 如 图 2-27 所 示 
的 对 话 框 。 在 其 中 填 入 用 来 存放 点 、 边 、 三 角形 数据 的 变量 名 (默认 为 points、edges 和 
triangles 的 邊 字母 p、e 和 tt)， 之 后 点 击 OK 即 可 将 数据 导出 到 Matlab 的 workpace 相应 变 


量 中 。 


回 Export 
| Wariable names for mesh data (poirts. edges.trianqlest 


pet 


图 2-27 导出 网 格 剖 分 的 数据 


点 市 一 按钮 数值 求解 方程 ， 方 程 的 数值 解 鸭 认 以 彩色 二 维 图 显示 ， 颜 色 的 深浅 代表 
函数 4 取 值 的 大 小 ,点 击 淮 按钮 打开 画图 设置 对 话 框 , 勾 选 Color、 Height (3-D plot)、Show 


态 时 ， 可 通过 鼠标 左 键 的 拖 忠 来 旋转 三 维 图 ， 以 调整 最 佳 的 观察 角 肛 。 选 择 File 采 单 下 的 
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Save As， 可 将 图 像 以 指定 的 图 片 格式 保存 。 


加 Figure 1 園 回 ※ 
File Edit View Insert Tools Desktop Window Help 


ロ 折 回 ゅ | | RP EE 


Color: u Height: u 


图 2-28 标 有 训 分 网 格 的 彩色 三 维 图 


偏 微分 工具 箱 也 允许 用 户 自 定义 画图 的 内 容 。 点 击 2 垄 按钮 打开 画图 设置 对 话 框 ， 色 选 
Color、Height (3-D plot)、Show mesh, 井 在 Height (3-D plot) 后 面 Property 的 下 拉 沈 单 中 选择 
user entry， 其 后 user entry 的 文本 框 中 填 入 数值 解 与 精确 解 的 震 ， 即 w-(1-x.^2-y.^2)/4, 如 
图 2-29 所 示 。 点 击 Plot， 得 到 计算 误差 的 彩色 三 维 图 ， 可 以 看 出 误差 在 10 ”数量 级 ， 
如 图 2-30 所 示 。 


Plat type: Property: User entry: Plat style: 


WW | olor 
回 [ | 


| | Contgur 


a | 


| | Defarmed mash 


Height (3-D ploty | |cgrtinugus 


Ta 


| Plat in x-y grid CDrtour plot lewels: 


Show mesh Colormap: 


图 2-29 画 送 差分 布団 的 設 賞 
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加 Figure 1 
File Edit View Insert Tools Desktop Window Help 


sae ka DEL- EEE mg 


Color: u Height: u-(1-x.2-y.2)4 


图 2-30 ”误差 的 彩色 三 维 图 
要 导出 数值 解 z 在 每 个 结 点 处 的 取 值 ， 点 击 Solve 菜 単 下 的 Export Solution 选项 打开 


“variable name for solutiar: 


可 
lL 
| ] 


图 2-31 导出 每 个 结 反 处 的 数值 解 


由 于 之 前 已 经 导出 了 三 角 网 格 的 相关 数据 ， 所 以 结 反 位置 (x、y 坐标 构成 的 二 维 数 组 ， 
的 认 变 量 名 为 p， 按 结 点 序号 排列 ) 及 该 位 置 上 数值 解 的 取 值 ( 上 默认 变量 名 为 u， 按 结 扣 


序号 排列 的 一 维 数 组 ) 都 出 现在 了 workspace 中 , 可 供 Matlab 进行 后 续 处 理 ， 如 图 2-32 
所 示 。 


Workspace 
间 国 划 唤 本 | [Stack: Basc 


Name = Value 


e 《7x64 double> 

目 p く 2x541 double> 
t く 4x1016 double> 
u 《541xl double> 


图 2-32 workspace 中 的 结 点 数据 和 对 应 的 数值 解 的 取 值 
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2.3.3 ”二 维 热传导 方程 


考虑 这 样 一 个 热传导 问题 ， 一 个 长 / 宽 为 2x1 的 金属 板 ， 中 央 有 一 个 半径 为 0.2 的 孔 。 
此 板 左 边界 接触 一 温度 为 100 的 恒温 热源 ， 右 边界 接触 一 温度 为 200 的 恒温 热源 ， 其 他 边 
界 绝 热 。 时 间 t=0 时 金属 板 各 处 温度 为 100, 那 久 た 10 时 这 个 金属 板 的 温度 空间 分 布 是 
怎样 的 ?此 问题 的 数学 形式 为 : 


ul,_ 1 =100, 路- = 200, (2-48) 
Cg 其 他 边界 上 

On 

| =100, 


取 ac=1， 求 解 步 又 如 下 : 

局 动 俩 微分 工具 箱 ， 点 击 - 沁 | 近 钮 ， 鬼 下 并 拖 电 忌 标 左 键 国 一 个 和 矩形。 双击 此 乍 形 打 
开 图 形 参 数 设 置 对 话 框 ,将 Left、Bottom、Width、Height 分 别 设置 为 -1、-0.5、2、1， 扣 
击 OK。 点击- 全 莽 护 钮 ， 投 住 Ctrl 键 同时 限 标 左 键 在 原点 控 下 并 拖 忠 到 合适 位 置 ， 田 一 个 
半 符 近似 六 0.2 的 圆 。 双 击 此 圆 打开 图 形 参数 设置 对 话 框 ， 将 X-center、Y-center、Radius 
分 别 设置 为 0、0、0.2， 点 击 OK。 再 将 Set formula 后 的 内 容 修改 为 R1-C1， 这 样 就 设置 好 
了 求解 区 域 。 

点 击 - 人 8 按钮 进入 边界 模式 ， 双 击 每 一 段 边 界 打开 边界 条 件 设 置 对 话 框 ， 填 入 边界 条 
件 并 点 击 OK。 对 于 左边 界 ， 选 择 狄 利 元 茉 边界 条 件 “Dirichlet”， 设 置 h=1、r=100。 类 似 
地 ， 将 右边 界 选 为 狄 利 殉 莱 边界 条 件 “Dirichlet”， 并 令 h=1、r=200。 对 于 其 他 边界 ， 均 
选择 话 依 曼 边 界 条 件 “Neumann”， 日 2=g=0。 

点 击 ee 按钮 打开 方程 参数 设置 对 话 框 , 方程 类 型 选 抛物 型 “Parabolic”。 比较 式 (2-42 ) 
和 式 (2-48)， 可 知 参数 取 值 如 下 : c=1、a=0、f=0、d=1。 填 入 参数 后 点 击 OK。 

点 击 Solve 菜 単 中 的 Parameters 选项 ， 弹 出 求解 参数 设置 对 话 框 。 其 中 ，Time 一 栏 为 
求解 的 时 间 区 间 , 填 入 0:10 代表 从 0 计算 到 t=10。u(t0) 一 栏 为 初始 条 件 , 这 里 填 入 100。 

其 余 两 栏 为 相对 误 兰 和 绝对 误 兰 ， 一 般 采 用 默认 设置 即 可 ， 最 后 点 击 OK。 

点 击 . 全 按钮 初始 化 三 角 网 格 ， pn ee i 三 角 网 格 。 

点 击 -三 按钮 求解 方程 , =10 时 的 数值 解 默 认 将 会 二 维 图 显示 。 点 击 3 锥 按钮 打 
开 画 图 设置 对 话 杠 ， 义 选 Color、Contour、Arrows, Plot， 可 得 市 等 高 线 的 彩色 矢量 
场 图 ， 如 图 2-33 所 示 。 
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Time=10 Color- u Vector field: -grad(u) 


-1.5 -1 -0.5 .5 1.5 
Info: Select the type nf PDE application from this pop-up menu. 


图 2-33 ” 带 等 局 线 的 彩色 矢量 场 网 


2.3.4 ”二 维 波 动 方程 


考虑 如 下 二 维 波 动 方程 的 定 解 问 题 ， 取 a=0.1: 


2 2 2 
Ca / u, 一 < テア < く 1 
ot x” Oy 
ul =u, =0, (2-49) 
X= 土 ニュ 1 
ーー -20( ア ュ ア ) OU 
| 二 ©C . ; a = 0 


可 近似 认为 上 陈 描 述 了 一 个 四 周 被 固定 的 正方 形 弹性 注 膜 在 中 心 被 拉 起 并 突然 释放 之 
后 的 过 程 ，4 为 薄膜 上 每 个 点 的 位 移 。 求 解 步 又 如 下 : 

和 前 面 类 似 ， 先 启动 偏 微 分 工具 箱 ， 点 击 . 刁 按钮 ， 按 住 Ctrl 键 同时 点 击 并 拖 上 中 鼠标 
左 键 画 一 个 正方 形 。 双 击 此 正方 形 打 开 图 形 参 数 设 置 对 话 框 ， 将 Left、Bottom、Width、 
Height 分 别 设置 为 -1、-1、2、2， 点 击 OK。 

点 击 .Sa 按钮 进入 边界 模式 ， 双 击 每 一 段 边界 ， 打 开 边 界 条 件 设置 对 话 框 ， 选 择 狄 利 
克 羔 边界 条 件 “Dirichlet”， 填 入 h=1、r=0 并 点 击 OK。 

点 击 fe 按钮 打开 方程 参数 设置 对 话 框 ， 方程 类 型 选 双 曲 型 “Hyperbolic”。 比 较 
式 (2-43) 和 式 (2-49), 可 知 参 数 取 信 如 下 : c=0.1、a=0、 碑 0、4d=1。 填 入 参数 后 点 击 
OK。 
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点 击 Solve 菜 単 中 的 Parameters 选项 ， 打 开 求 解 参数 设置 对 话 框 。 其 中 ，Time 一 栏 为 
求解 的 时 间 区 间 ， 填 入 0:1 代表 从 1=0 计算 到 拓 1。u(lt0) 一 栏 为 2 的 初始 条 件 ， 这 里 填 入 
exp(-20*(X.^2+yY^2))。uU'(t0) 一 栏 为 6w6t 的 初 始 条件 , 填 入 0 即 可 。 其 余 两 栏 为 相对 误 氏 和 
绝对 误差 ， 一 般 采 用 默认 设置 ， 最 后 点 击 OK。 

点 击 .会 按钮 初始 化 三 角 网 格 ， 随 后 再 根据 需要 多 次 点 击 . 例 | 按钮 加 密 三 角 网 格 。 

点 击 .3 价 按钮 打开 画图 设置 对 话 杠 ， 勾 选 Color、 Height (3-D plot)、Show mesh， 点 击 
Plot， 可 得 带 网 格 的 彩色 三 维 图 ， 如 图 2-34 所 示 为 {=1 时 的 数值 解 。 


加 Figure 1 [eeEg 


File Edit View Insert Tools Desktop Window Help 
Ses REDDELEL- EE wm 


Time=1 Color: u Height: u 


图 2-34 褒 网 格 的 彩色 三 维和 网 


如果 在 Solve 菜 単 中 Parameters 选项 的 Time 一 栏 填 入 0:0.01:1， 并 在 画图 设置 对 话 框 
勾 逃 Color、 Animation, 点 古 Plot, 将 会 得 到 数值 解 的 彩色 动画 ,0:0.01:1 代表 在 t=0 和 だ 1 
之 间 , 每 隔 0.01 就 逢 出 一 幅 圏 作 妨 効 画 的 一 帆 。 Animation 后 方 的 Options 选项 可 设置 动画 
帆 率 、 重 复 播 放 次 数 。 


2.3.5 ”一 维 特征 值 问题 


考虑 单位 圆 内 拉 普 拉 斯 算 符 的 特征 值 问题 : 


(2-S0) 


求解 步骤 如 下 : 
启动 偏 微分 工具 箱 ， 点 击 < 王 按钮 ， 按 住 Ctrl 键 同 时 鼠标 左 键 在 原点 按 下 并 拖 电 到 合 
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适 位 置 男 一 个 近似 的 单位 圆 。 双 击 此 圆 打 开 网 形 参 数 设 置 对 话 框 ， 将 X-center、Y-center、 
Radius 分 别 设置 为 0、0、1， 点 击 OK。 

点 击 - 亨 .按钮 进入 边界 模式 ， 双 击 每 一 段 边 界 ， 打 开 边 界 条 件 设置 对 话 框 ， 选 择 狄 利 
各 菜 辺 界 条 件 “Dirichlet”, 填 入 h=1、r=0， 并 点 击 OK。 

点 击 -E 按钮 打开 方程 参数 设置 对 话 框 ， 方 程 类 型 选 特征 值 问 题 “Eigenmodes”。 比 较 
式 (2-44) 和 式 〈2-50)， 可 知 参 数 取 值 如 下 : c=1、a=0、d=1。 填 入 参数 后 点 击 OK。 

点 击 Solve 表单 中 的 Parameters 选项 ， 打 开 求 解 参数 设置 对 话 框 。 在 此 处 可 以 设置 特 
征 值 的 搜索 范围 ， 这 里 以 0 到 100 之 间 的 特征 值 为 例 ， 填 入 [0 100] 并 后 击 OK。 

点 击 . 会 按钮 初始 化 三 角 网 格 ， 随 后 再 根据 需要 多 次 点 击 . 命 按 钮 加 密 三 角 网 格 。 

点 击 三 按钮 求解 方程 ， 程 序 默 认 显示 最 小 的 特征 值 和 其 所 对 应 的 特征 函数 。 

点 击 允 按钮 打开 画图 设置 对 话 框 , 勾 选 Color、Height (3-D plot), 此 外 可 以 在 Eigenvalue 
后 的 下 拉 沫 单 中 选择 特征 值 〈 由 小 到 大 排列 )， 如 图 2-35 所 示 。 点 古 Plot 后 得 到 该 特征 值 及 
其 所 对 应 的 特征 函数 的 彩色 三 维 图 ， 如 图 2-36 所 示 为 第 6 个 特征 但 和 特征 函数 。 


吧 Plot Selection 


Flnt tw: Property: User entry: 


Color 


| | Contour 


lu 


| | rrows | -gradiuy 


| | Deformed mesh | -gradtu) 


Height (3-D plat! 


| ] plet in x-y grid Contour plot lewels: 0 Plot solution gutoma 


| | Show mesh Colormap: 問 Eigenwalue: 


图 2-35 选择 特征 值 


人 至 此， 利用 侦 微 分 工具 箱 求 解 四 类 基本 侗 微 分 方程 的 方法 残 介绍 完了 。 实 际 上 ， 偶 微 
分 工具 箱 还 有 针对 性 地 为 一 些 领 域 的 基体 问题 提供 了 解决 方案 ， 如 : 结构 力学 、 毅 电学 、 
电厂 学 、 热 传导 等 , 但 限于 篇 幅 , 本 书 中 就 不 再 介绍 , 更 多 使 用 方法 参见 偏 微分 工具 箱 Help 
六 单 中 的 内 容 。 除 了 图 形 界 和 面 的 工具 之 外 ， 仿 微分 工具 箱 也 提供 了 命令 行 的 调用 方式 ， 可 
直接 编写 m 文件 求 解 偽 微 分 方 程 , 这 使 得 偏 微 分 工具 箱 更 容易 被 其 他 程序 调用 并 进一步 处 
理 结 

偶 微 分 工具 箱 的 界面 友好 ， 且 边界 条 件 和 求解 区 域 可 随意 选取 ， 这 些 优点 毋须 多 言 。 
但 它 依然 不 可 避免 地 存在 一 些 不 足 : 只 能 求解 特定 类 型 的 俩 微分 方程 ， 为 获得 高 精度 必须 
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提高 网 格 密度 ， 导 致 运算 量 提 高 。 这 些 不 足 都 将 在 后 续 章 节 介绍 的 


图 2-36 第 6 个 特征 值 所 对 应 的 特征 函数 
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中 高 周期 性 这 界 条 件 下 的 谱 方 法 


第 3 草 健 里 叶 谱 方法 


本 章 和 第 4 革 介 绍 的 求解 仿 微 分 方程 (组 ) 的 方 法 都 色 含 看 周期 性 辺 界 条件 , 尽 管 周 
期 性 边界 条 件 不 属于 数学 物理 方法 中 常见 的 传统 三 类 边界 条 件 ， 但 它 并 不 脱离 实际 。 某 些 
科学 问题 的 研究 重点 不 受 边界 的 影响 ， 如 孤子 之 则 的 相互 作用 ( 非 线 性 苹 定 谤 方程 或 KdV 
方程 )、 各 问 同 性 的 均匀 满 流 问题 等 ,周期 性 边界 条 件 束 可 以 胜任 。 为 外 ， 一些 科学 问题 本 
号 束 共有 时 空间 期 性 ， 如 晶 格 振动 问题 、 能 融 理 论 或 动物 表皮 图 案 的 形成 问题 等 。 在 极 坐 
标 系 、 i 角度 ( 如 : @、 の ) 是 共有 周期 性 的 ， 对 这 些 情况 显然 要 采 
用 周期 性 辺 界 条件 。 


$.1 佑 里 時 道 方 法 的 原理 


3.1.1 快速 全 里 叶 变 换 


对 于 在 (-o%,%o) 有 定义 有 旦 绝对 可 积 、 并 在 任 一 有 限 区 则 上 满足 狄 利 元 羔 条 件 的 也 
数 u(x)， 傅 里 叶 变 换 (Fourier transform) 及 其 逆 変 換 Cinverse Fourier transform ) 
定义 为 : 


4()=| u(x)e dr (3-1) 
ky= テ | (ke dk (3-2) 


上 述 定义 式 给 出 了 一 个 傅 里 时 变换 对 (Fourier transform pair)， 本 书 中 将 它们 记 为 
NA)=F[u(x)] 和 u(x)=F [UK)]。 实 际 上 ， 傅 里 叶 变 换 对 的 定义 并 不 是 唯一 的 ， 两 个 定义 
式 中 的 系数 可 以 随意 修改 ， 只 要 它们 的 积 为 172z 即 可 。 此 外 ， 定 义 式 中 的 e 和 es 
( 称 为 积分 变换 的 核 ) 也 可 以 互 换 。 容 易 知 道 ，x(xz) 先 后 经 过 傅 里 时 变换 及 其 逆 变 换 仍 
将 得 到 它 本 身 ， 即 : w(x)=F "人 F[u(x)]} 。 在 物理 上 , 若 研究 対象 力 室 同上 的 信号 分 布 
u(x), x 代表 空间 坐标 ， 那 么 大 就 是 波 数 (2z 长 度 上 波长 的 个 数 ， 代 表 信 号 在 空间 上 
的 変化 速度 ), 4( の 称 妨 波数 道 , 类似 地 ， 符 将 上 式 中 的 坐标 x 和 波 数 大 代 换 成 时 间 : 
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和 角 频 率 mw， 研究 对 象 就 成 了 时 间 上 的 信号 u(t)， 其 全 里 叶 变 换 束 是 频谱 &Wo)， 通 过 
类 比 可 知 波 数 庆 其 实 束 是 一 种 空间 上 的 频率 。 健 里 叶 变 换 及 逆 变 换 是 空域 (或 时 域 ) 
与 频 域 之 间 的 转换 工具 。 
当 郴 数 xz 为 二 维 函 数 时 ， 将 关 方 同上 和 了 方向 上 的 傅 里 叶 变 换 记 为 FL[ ] 和 万 [ ], 

并 在 变换 后 的 函数 上 加 “^ 和 六 “~” 进 行 区 分 ， 如 : (Kk,y)=F[u(x, の 1 U(x, ky =F, [u(x, 
ヵ ], 其 中 丘 、 厂 为 x、y 方向 的 波 数 。 在 二 维 情况 下 ， 默 认 FL ] 和 严 [] 分 别 代表 二 维 
値 里 叶 変 換 及 逆 変換 , 即 FE]=Py{F[]) 或 {DF []=F， {Pe T] 或 局 []》 
并 有 : 


让 有 Lee 
u(x,y) = アー | た ん ) 


通 第 来 讲 ， 知 不 对 “ 傅 里 时 变换 ”加 任何 限定 ， 那 么 它 指 的 束 是 连续 傅 里 叶 变 换 ， 也 
束 是 针对 定义 在 无 限 区 间 内 的 连续 函数 u(x) 的 傅 里 叶 变 换 , 这 是 在 理想 条 件 下 的 数学 定义 。 
在 实际 应 用 中 ， 尤 其 是 计算 机 的 信号 采样 、 信 号 处 理 当 中 ， 信 号 是 离 敌 的 、 有 限 的 ， 离 获 
傅 里 叶 变 换 (discrete Fourier transform) 就 是 针对 这 一 情况 提出 的 。 在 Matlab 中 ， 对 于 订 
列 1,.…, 4.… gy 的 高 散 便 里 叶 変換 及 逆 変換 定 又 力 : 


C3=3) 


N 27( (ki 
UN (3-4) 
j=1 
| & 2z(/-1)( を -1) 
Uj= he > ,j=b..,N C38) 
入 各 


同样 ， 上 述 定 义 中 的 归 一 化 系数 也 可 以 有 其 他 选择 ， 但 它们 的 乘积 必须 为 JIN。 如 
果 将 序列 wi, ..., w, .…., un 看 作 等 间隔 空间 (时间) 点 上 的 信号 幅度 值 ， 那 么 经 过 离散 傅 
里 时 变换 得 到 的 序列 三友 …, in 器 是 其 相应 的 频谱 信息 。 通 过 定义 式 (3-4) 和 (3-5) 
容易 得 到 衣 =Wirrw 和 w=wjrw， 这 就 是 说 ， 离 敬 傅 里 叶 变 换 已 经 隐 食 了 周期 性 边界 条 件 ， 
它 假 设 竺 做 离散 傅 里 叶 变 换 的 离散 信号 在 周期 为 2z 的 周期 域 上 。 在 实际 运算 中 ， 和 人们 
不 直接 采用 上 述 离散 傅 里 时 变换 的 定义 式 进行 计算 ， 而 是 使 用 快速 傅 里 时 变换 《〈fast 
Fourier transform) 算法 ， 此 算法 是 二 十 世纪 六 十 年 代 中 期 由 Cooley 和 Tukey 提出 的 ， 
被 党 为 二 十 世纪 最 伟大 的 十 大 算法 之 一 。 离 散 傅 里 时 变换 定义 式 的 运算 量 Carithmetical 
operation) 是 OOV)， 而 快速 傅 里 叶 变换 可 将 运算 量 降 低 到 O(ViogM)。 特 别 是 当 M 很 大 
的 时 候 ，NlogN 的 增长 速度 仅 接 近 于 W， 可 以 大 大 地 节省 计算 时 间 。 但 是 ， 为 了 获得 较 
高 的 运算 速度 ， 符 变换 序列 的 元 素数 量 必须 是 2 个,， 即 其 个 数 必 须 为 2、4、8、16、32、 


在 Matlab 中 , fft 和 ifft 函数 实现 基于 快速 傅 里 叶 变 换算 法 的 一 维 离散 傅 里 叶 变 换 及 逆 
变 搞 。ft 函数 的 一 般 调 用 语法 为 : 


fft(u) 
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若 为 一 问 量 ， 则 fft 返 回 其 离散 傅 里 叶 变 换 的 结果 。 者 为 一 矩阵 ， 则 fft 返回 
和 矩阵 中 每 一 列 的 离散 傅 里 时 变换 。 大 要 计算 矩阵 u 中 每 一 行 的 离散 傅 里 时 变换 ， 只 雳 
调用 fft(u,[],2) 即 可 ， 它 速度 比 fftu.). 更 快 一 些 。ifft 函数 的 调用 语法 与 fft 函数 完全 
一 样 。 

若 输入 fft 函数 的 空域 信号 序列 ,ww .un 在 x 轴 上 的 坐标 间 阳 是 LN， 相 应 的 横 
坐标 x 可 认为 是 : 


—L/2, —L/2+L/N, ..., L/2—2L/N, L/2—L/N 

注意 , fft 函数 输出 的 序列 看, … 放 。 .…, Bw 所 对 应 的 频 京 并 不 是 按照 从 小 到 大 的 顺序 排 

列 的 ， 而 是 非 负 频 京 对 应 于 前 半 部 分 序列 ， 负 频率 对 应 于 后 半 部 分 序列 ， 即 : 
0, 2 人 ん, 4 ん, ..., (N—4)nL, (N=—2)mL, -NT —(N—2)mL, ..., —4m/L, 一 2 ん 

因此 Matlab 提供 了 fftshift 函数 ,用 于 调整 克 输出 序列 的 顺序 。 也 就 是 说 , fftshift(fft(u)) 

所 对 应 的 频率 才 是 按照 递增 顺序 排列 的 : 
-NT —(N—2)T/L, ..., -27 0, 2 ん ..., (N-4)TL (N—2)mL 

空域 坐标 与 频 域 坐标 的 关系 如 表 3-1 所 示 ， 不 难 发 现 ， 衬 域 上 的 两 点 间 隅 和 频 域 区 间 

长 度 成 有 反比， 乘积 为 2x， 频 域 上 的 两 点 间隔 和 空域 区 间 长 度 的 关系 亦 如 此 。 


表 3-1 空域 坐标 与 频 域 坐标 的 关系 


空域 坐标 LN L 


此 外 还 有 ifftshift 函数 用 于 进行 与 fftshift 函数 相反 的 操作 。 实 际 上 ，fftshift 函数 的 
作用 仅 是 让 fft 的 输出 结果 变 得 更 易于 观察 ， 在 还 需要 用 ifft 冰 数 将 频谱 信息 还 原 回 罕 
域 信号 ， 就 必须 在 使 用 fftshift 之 后 再 用 ifftshift 函数 将 序列 的 顺序 恢复 ， 和 否则 得 不 到 正 
确 结果 。 如 果 不 是 为 了 分 析 频 谐 信 息 ， 而 是 用 下 文 即将 介绍 的 傅 里 叶 谐 方法 处 理 导 数 和 
微分 问题 ， 则 大 可 不 必 使 用 fftshift 和 ifftshift 函数 调整 序列 的 顺序 ， 以 减少 代码 元 余 、 
节约 时 间 。 

基于 快速 全 里 叶 变 换算 法 的 二 维 离散 傅 里 叶 变 换 及 逆 变 换 由 ff2、ifft2 函数 实现 ， 一 
般 调 用 语法 为 : 


fft2(u) 
它 返 回 和 矩阵 u 的 二 维 传 里 时 变换 ， 等 效 于 ffft(u),[],2)。it2 与 fft2 的 调用 语法 一 样 ， 


就 不 再 蒙 述 。 
fftshift 函数 的 调用 语法 为 : 
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fftshift(u) 


茶 u 为 一 问 量 ， 它 将 u 左右 两 半 互 换 并 返回 。 辱 为 一 矩阵 ， 则 它 将 的 第 1、3 象限 
互 换 以 及 第 2、4 象限 互 换 并 返回 。 此 外 , 知 要 互 换 矩阵 u 的 上 下 两 半 , 可 以 调用 fftshift(u,1)。 
要 互 换 和 矩阵 u 的 左右 两 半 , 只 需 调用 fshift(u,2)。ifftshift 函数 与 fftshift 函数 功能 完全 相反 ， 
调用 语法 相同 ， 这 里 不 再 重复 。 

接 下 来 以 实例 说 明 作 等 函数 的 用 法 。 众所周知 , sinc 函数 的 傅 里 叶 变 换 是 tri 函数 (三 
角形 函数 ), 即 : 


F | sine? (ax) | = tri 先 (3-6) 


1 
V2na” 
取 a=1， 实 现 函 数 sinc*(x) 傅 里 叶 变 换 的 代码 如 下 : 
程序 3-1 


clear all: close all: 

L=20; N=128: 

x=L/N*[-N/2:N/2-11:; 

k=2*pi/L*[-N/2:N/2-11; 

u=sinc(x).“2; 

ut=fft(u); 

subplot(2,2,1 ) 

plot(x,u,'k','LineWidth',1.5), xlabel x, ylabel usinc^2(x) 
subplot(2,2.2) 

plot(abs(ut), ,LineWldth ,1.9) 

axis(| 1 N 0 7]), set(gca,'xtick []), ylabel abs(fft(u)) 
subplot(2,2,3) 
plot(k,abs(fftshitt(ut)),K,LineWndth',1.5) 

axis(| -20 20 0 7]), xlabel k, ylabel abs(fftshift( fft(u))) 
subplot(2,2,4) 
plot(x,iftt(fftshitt(fftshift(ut))),K,'Line Width',1.5) 
xlabel x, ylabel iftt(ifttshift(fftshiftt(fft(u)))) 


代码 的 执行 结果 如 图 3-1 所 示 , sinc^ 形 信号 经 过 fft 函数 变换 所 得 频谱 的 顺序 出 现 颠 
倒 ， 低 频 成 分 在 两 端 ， 高 频 成 分 在 中 间 。 随 后 经 过 fftshift 函数 调整 顺序 ， 低 频 成 分 被 置 于 
频谱 中 间 ， 其 中 的 求 绝对 值 函数 abs 用 来 得 到 频谱 的 振幅 。 再 使 用 ifftshift 函数 还 原 频谱 顺 
序 并 用 ifft 函数 做 傅 里 叶 道 变换， 就 得 到 了 最 初 的 sinc 函数。 注意 到 三 角形 函数 的 幅度 与 
式 (3-6) 不 相符 ， 这 并 不 是 计算 错误 ， 而 是 快速 传 里 叶 变 换 对 fft 和 ifft 的 系数 选取 不 同 
造成 的 ， 这 一 差异 丝 坚 不 影响 后 面 即 将 讨论 的 傅 里 时 谐 方法 。 
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abs(fftshft(fft(u))) 
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ト 9 
つ 
| 
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ifft(ifftshift(fftshitt(fft(u)))) 


ご © 


图 3-1 fft、ifft、fftshift、ifftshift 函数 的 用 法 


3.1.2 求 导 、 积 分 与 健 里 叶 谱 方法 


对 于 FIlu'(x)]， 由 储 里 叶 变 换 的 定义 和 分 部 积分 法 ， 得 到 : 


Flu(x)]=| w(x)e a=u(x)e™| -| u(x)(-)e Fa (3-7) 
当っ 時 , ux) つ 0, 財 : 
F[we(zj = 下 | u(x)e dr=ikF [u(x)] (3-8) 
类 似 地 ， 可 以 得 到 ; 
rl の (x) に ("rlz(y)] (3-9) 


其 中 0) 代表 wx 的 到 阶 导数 。 上 式 的 意义 在 于 : 函数 的 求 导 运 算 在 傅 里 叶 变换 的 
作用 下 ， 可 转化 为 相对 简单 的 代数 运算 ， 即 : が "C=F {GPD"F[Iu(x)]}。 正 是 基于 此 原理 ， 
傅 里 叶 谱 方法 (Fourier spectral method) 利用 傅 里 时 变换 将 偏 微分 方程 中 空域 (space 
domain ) 或 时 域 (time domain) 上 的 求 导 运算 简化 为 频 域 (spectral domain ) 上 的 代数 运算 ， 
求解 后 再 通过 傅 里 时 逆 变 换 得 到 衬 域 或 时 域 上 的 结果 。 在 代码 层面 上 ，Matlab 提供 的 快速 
传 里 叶 变 换 函 数 克 、 逆 変換 画数 ifft 以 及 强大 的 矩阵 运算 能 力也 为 侧 洁 、 优 雅 地 实现 传 里 
叶 谱 方 法 更 定 了 基础 。 

3.1.1 小 市 已 经 提 到 ，fft 输出 结果 在 频 域 上 的 顺序 是 颠倒 的 ， 经 过 ff 函数 变换 后 的 序 
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列 在 x 轴 上 所 对 应 的 坐标 是 : 
0, 2 人 ん, 4/L, ..., (N—4)m/L, (N—2)n/L, -NT —(N—2)mL, ..., —4n/L, —2n/L 
利用 傅 里 叶 谱 方法 求 导 时 ， 在 代码 中 通常 使 用 顺序 题 倒 的 频 域 坐标 ， 以 求 序 列 上 的 一 
阶 导 数 数值 解 为 例 :ifft(i*k.*fft(u))。 其 中 ,变量 k 是 由 Matlab 语句 (2*pi/L)*[0:N/2-1 -N/2:-1] 
生成 的 顺序 题 倒 的 频 域 坐标 ， 这 样 做 是 为 了 免 去 调用 fftshift 和 ifftshift 的 步骤 。 
下 面 用 实例 说 明 傅 里 时 谱 方 法 求 w(x)=e" の 的 1、2、3 阶 导数 的 过 程 ， 并 与 解析 解 
NO "(x 6 の [cos^(ry)-sin(zy)] 、1 "(x)= encos(rr)[cos- (x)-3sin(x)-1] 


相 比 较 ， 得 到 的 最 大 误差 分 别 在 10、10 “、10 数量级， 如 图 3-2 所 示 。 代 码 如 下 : 


WU () 三 7COS(7LY)e 


u(x)=esn(mx) Errormax=2.0321e-014 
3 5 
2.5 
2 
る 1.5 め 0 
SS 
1 
0.5 
—S 
7 ー0.3 0 0.5 1 ー1 一 0.5 0 0.5 1 
X Xx 
Errormax=8.4555e—013 Errormax=2.8491e—011 
100 
0 
50 
を _10 > 0 
上 = 
一 S0 
ー20 
一 100 
_30 一 [30 
一 ] —0.5 0 0.5 | 一 ] —0.5 0 0.5 | 
x x 


图 3-2 ” 傅 里 时 谱 方法 求 u(x)=e*™ 中 的 1、2、3 阶 导数 并 与 解析 解 比较 


clear all: close all: 

L=2; N=32: 
x=L/N*[-N/2:N/2-11:; 
k=2*pi/L*[0:N/2-1 -N/2:-1]; 
u=exp(sin(pi*x)); ut=fft(u); 

% 导 数 的 精确 解 

du _ exact(:,l)=pi*cos(p1*x).*u; 


du _ exact(:,2)=pi“2*(cos(pi*x).“2-sin(p1*x)).*u; 
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du _ exact(:,3)=pi“3*cos(pi*x).*(cos(pi*x).“2-3*sin(pi*x)-1).*U; 
% 谱 方法 求 导 
du _ Fourier(:,l)=ifft(1*k. *ut); 
du Fourier(:,2)=ifft((1*k).“2.*ut); 
du Fourier(:,3)=1fft((1*k).^3.*ut); 
error=max(abs(du exact-du Fourier)): 
% 男 图 
labels={"u"(x)', "(Xx)", uC 
for n=1:4 
subplot(2,2,n) 
1f n== 
plot(x,u,'k',Line Width',1.5) 
xlabel x, ylabel u(x), title('u(x)=e^{sin(\pix)}'") 


else 
plot(x,du exact(:,n-1),K,x,du Fourier(:,n-1),.r .… 
, MarkerSize',13,Line Width',1.5) 
title(| Error {max}!=' num2str(error(n-1 ) ) |) 
xlabel x, ylabel(labels(n-1 )) 
end 


end 


式 (3-9) 也 可 写 为 : 


(3-10) 


若 把 u(x) 看 成 是 对 w?() 做 n 次 积分 的 结果 ， 式 (3-10) 就 具有 了 求 不 定 积 分 的 意义 。 当 
然 ， 这 里 暂时 没有 考 卡 积分 常数 的 问题 。 与 式 (3-9) 比较 可 知 ， 求 n 阶 导 数 相 当 于 在 频 域 上 
乘 以 GK"， 相 应 地 ， 做 n 次 积分 就 是 在 频 域 上 除 以 Gi”"。 和 需要 强调 的 是 ， 如 此 计算 积分 会 出 现 
一 个 问题 ， 那 就 是 为 0 时 会 导致 式 (3-10〉 出 现 无 穷 大 。 在 编写 程序 时 有 了 两 种 解决 办 法 : 

(1) 将 天 的 0 值 修改 为 很 小 的 数 ， 如 : 10”。 

(2) 在 分 母 上 加 一 个 很 小 的 数 ， 防 止 分 母 为 0， 即 : ("eps。 其 中 , eps 是 Matlab 中 的 浮 
点 相对 误差 限 ， 它 的 值 在 10“ 数 量 级 。 这 样 ， 就 通过 引入 微小 的 误差 避免 了 分 母 为 0 的 问题 。 


3.1.3 “ 传 里 叶 谱 方法 的 步 又 


待 求解 的 偏 微分 方程 的 普遍 形式 为， 
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Ou 
Of 
其 中 , w(x, 站 为 x\t 的 函数 ,工人 代表 线性 算 符 (linear operator), N(w) 为 非 线 性 项 (nonlinear 
terms)。 已 知 初 始 条 件 为 u(x, 如， 在 周期 性 边界 条 件 下 求 某 一 时 刻 的 u(x, 四。 对 于 这 样 的 问 
题 ， 总 是 可 以 通过 变量 代 换 的 办 法 将 等 号 左边 对 7! 的 关 阶 导数 降 为 1 阶 ， 详 见 1.1.6 小 节 。 
所 以 下 面 以 等 号 左边 是 0w6l 的 偶 微 分 方程 为 例 进 行 讨 论 ， 这 与 式 (3-11) 降 阶 后 的 偶 微 分 
方程 组 求解 方法 大 同 小 异 。 
在 x 域 上 对 以 下 方程 做 传 里 时 变换 : 


=Lu+N(u) (3-11) 


OU _ ー 
ay Lu+Nlu) (3-12) 
得 到 |: 
on 
(HGIF NO (3-13 ) 


其 中 ,Uk の 代表 w(x, 0 在 x 域 上 的 傅 里 叶 变 换 。 为 了 展现 对 线性 算 符 工 及 非 线性 项 Mw) 
做 傅 里 叶 变 换 的 细节 , 这 里 以 L=a:0%/6x*+b-6/6xtc、N(w)=w + 0"u/0x +f(x)-Gu/6x 为 例 进 行 
分 析 , 2、 ヵ 和 c 分 别 为 常数 。 

对 线性 部 分 ， 有 刀 ロ 7=[2G 全 が G の Te]2, 唱 式 (3-13 ) 中 的 0=gG" 二 (の Tc= 
_ak+ibk+c。 对 非 线 性 部 分 ， 需 要 将 w、6u/6x 和 Ow/6x 写 为 FA、 ika] 和 FF [GO], 
则 有 FIN(w)]=F[lu +wO*w/Ox*+f (x)-Ou/6x]=F{F [OE [4 7 [GRAAF TiKO}。 

这 样 , 式 (3-12) 中 u(x, の 対 x 的 偏 导 数 就 都 通过 傅 里 叶 变 换 及 逆 变 换 人 简化 为 式 (3-13) 
中 (た D 和 的 代数 运算 了 ， 然 后 再 将 站 和 离散 化 ， 偏 微分 方程 就 简化 成 了 常 微分 方程 
组 。 数 值 计 算 9a(k, 7/@ 最 直接 的 方法 就 是 调用 Matlab 的 ode 系列 函数 ， 优 先 选择 ode45 
函数 ， 最 后 用 ifft 函数 将 频 域 上 的 计算 结果 ん 力 变 换 回 竺 求 的 u(x, 0。 

综 上 ,利用 傅 里 叶 谱 方 法 数值 计算 偏 微分 方程 (组 ) 步骤 如 网 3-3 所 示 ， 有 具体 过 程 如 下 : 


@ @ © © @ 時 7(Y, の 
7-2 77-1 Gh Zi+1 Uj+2 
@ @ 和 @ る @ a 7( kD 
@ @ @ © @ 
es ode45 
@ @ @ @ @ 
.® ee ® .® ® 5 た 6) 
Um—2 Un—1 Um Um+1 Un+2 
@ ® @ 人 の @ u(x,10) 
Uji_2 Uj-1 Gh Ui+1 Uji+2 


图 3-3 一 维 情 况 下 的 传 里 叶 谱 方法 计算 过 程 
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(1) 対 干 形 如 式 (3-11) 的 偏 微分 方程 (组 );， 通 过 变量 代 换 将 其 中 的 0"w/67' 降 为 1 阶 
导数 ， 若 n=1, 略 辻 此 歩 。 

(2) 在 x 域 上 对 偏 微 分 方程 (组 ) 做 全 里 叶 变 换 ， 则 线性 项 中 的 Cw/6x” 直接 变 为 iA)” 
并 利用 w= [向 、O"w/6x"=F [GRA 代 换 非 线 性 项 中 的 uw、O”w/6x"， 得 到 关于 (4 7 的 微分 
方程 (组 )。 

(3) 用 时 间 步 进 法 〈 如 龙 格 - 库 卉 法 等 ) 数值 计算 离散 化 的 关于 ん 7 的 微分 方 程 独 , 
默认 边界 条 件 为 周期 性 边界 条 件 ， 初 始 条 件 が た t)=F[u(x, 如 )]。 

(4) 将 上 一 步 得 到 的 结果 从 频 域 变换 回 空 域 ， 即 : zc, D= 严 [20 7]。 高 敵 値 里 叶 変換 
及 逆 変換 由 ff、ifft 函数 实现 。 

若 方 程 在 空间 上 再 增加 一 个 维度 , 式 (3-12) 的 等 号 右边 包含 w(x, y, の 的 の /2y" 和 の / の ア " 
则 傅 里 叶 谱 方法 的 计算 步 又 基本 不 变 ， 如 示意 图 3-4 所 示 。 唯 一 不 同 的 是 需要 对 方程 做 二 
维 傅 里 叶 变 换 ， 使 用 ff2 、ifft2 函数 代替 ft、ifft 函数 ， 并 利用 0%Y6x”" 一 (A)*、0Y6y" 一 Gy 
和 关系 式 (3-14) 进行 转化 ， 其 中 到 、 乌 为 x、y 方 向 的 波 数 。 式 中 F[]、F[] 代 表 二 维 传 
里 叶 变 换 及 逆 变 换 , w 上 加 “~” 和 “人 ^” 代 表 先 后 对 函数 做 x、y 方 回 上 的 傅 里 叶 变 换 ( 即 
二 维 全 里 叶 变 换 )。 


(3-14) 


(の が (なん. の 


图 3-4 二 维 情况 下 的 傅 里 叶 谐 方法 计算 过 程 

为 了 更 贴近 实际 地 说 明 具体 计算 细节 ， 后 面 音 节 将 给 出 形 如 式 (3-11) 和 (3-12) 的 
偏 微分 方程 (组 的 求解 实例 。 

需要 强调 的 是 ， 使 用 傅 里 时 谱 方 法 求解 偏 微分 方程 (组 ) 隐 含 着 周期 性 边界 条 件 。 
以 序列 四， ws .…, un 为 例 ， 在 周期 性 边界 条 件 下 ， 可 以 等 效 认为 有 yy=g 的 关系 
Cm 为 任意 整数 ), 也 就 是 说 一 端 边界 处 的 函数 值 将 对 另 一 端 边界 处 的 函数 值 产生 影响 ， 
周期 性 边界 条 件 可 以 将 具有 时 空 周期 性 的 物理 问题 简化 为 单元 进行 处 理 ， 但 对 于 一 些 
特定 的 非 周期 性 问题 ， 则 需要 修改 其 他 条 件 〈 计 算 区 间 的 范围 、 参 数 、 初 始 条 件 等 ) 
来 确保 边界 处 的 函数 值 恒 为 0 或 某 一 特定 常数 ， 以 排除 相 邻 周 期 间 的 干扰 ， 得 到 正确 
结果 。 
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3.1.4 ”滤波 法 


使 用 健 里 叶 谱 方法 时 ， 奎 频 域 上 关于 让 的 偏 微 分 方程 具有 网 性， 那么 其 求解 速度 将 大 
大 降低 。 本 小 市 介绍 的 滤波 法 可 以 提 蜗 一 部 分 这 种 刚性 方程 的 求解 速度 。 

自 先 分 析 偏 微分 方程 在 健 里 叶 谱 方法 中 是 如 何 补 引入 刚性 的 ， 以 超 扩 散 方 程 
(hyper-diffusion equation〉 为 例 ， 见 式 (3-15): 


Ou __ Ou 
うー っ (3-15) 
对 其 做 傅 里 叶 变 换 后 ， 得 : 
= (ik) ターー が 2 (3-16) 


如 果 x 域 上 的 计算 区 间 宽 度 LK=2， 区 间 上 数据 点 的 数量 N=256， 那 么 | 的 最 大 值 
为 Nz/L~400， 则 (kwax) <2.6x10“， 假 设立 在 高 频 wa 处 的 数量 级 很 小 ， 不 妨 今 (kax, 7 = 
10?, 有 : 


Ohno) 4 (を ke-2.6x10 (3-17) 
Ot 


等 号 右边 的 数量 绝对 值 很 大 ， 这 将 导致 ode45 (其 他 变 步 长 算法 亦 如 此 ) 在 计算 62/6; 
时 必须 采用 很 小 的 步 长 At 才能 把 误差 控制 在 可 接受 范围 内 ， 因 此 显著 增加 了 运算 时 间 ， 
这 就 是 式 (3-16) 的 刚性 带 来 的 计算 困难 。 此 外 ， 采 用 过 小 的 元 、 过 大 的 NM 都 会 加 剧 这 
一 问题 。 

一 般 地 , 対 式 (3-12) 进行 傅 里 叶 变 换 得 到 式 (3-13) 之 后 ， 如 果 线 性 项 (の 4 中 的 
高 频 部 分 造成 了 方程 的 刚性 问题 ， 可 用 滤波 法 解决 。 方 法 如 下 : 偶 微 分 方程 的 线性 部 分 是 
可 以 解析 求解 的 ， 因 此 在 式 (3-13) 爾 端 乗 上 積分 因子 e“ パ , 整理 得 : 


ーー OZ = へ 一 以 
06。 < (ke 0 の 6 FN (3-18) 
Ol ea | 
ー の (ん 
EN (3-19) 


令 w=e “9%， 则 ; 


OW _ -a 
AN)) 
@( ん )7 ^ 


w=e_ 77 


也 可 以 写成 以 下 形式 ， 数 值 计 算出 式 (3-20) 或 式 (3-21) 的 结果 再 利用 关系 
u=F [eVW] 将 区 化 为 wu 即 可 。 


(3-20 ) 
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OW _ -g(/: -1| 、@( ん 7 和、 了 
=e FIN{F | wl (3-21) 
这 样 束 通过 引入 充 将 线性 项 中 的 刚性 削弱 了 。 然 而 非 线 性 项 中 也 可 能 存在 刚性 ， 以 致 
影响 运算 速度 ， 所 以 滤波 法 只 是 对 健 里 叶 谱 方法 中 的 一 部 分 刚性 方程 有 效 。 实 际 上 ， 较 之 


传 里 叶 详 方法 ， 滤 波 法 对 计算 时 间 的 市 省 只 有 在 空域 上 最 融 阶 村 数 的 维度 大 于 2 的 时 候 才 
能 体现 出 来 。 


3.2 ” 舍 里 时 谐 方法 求解 基本 含 微分 方程 《组 ) 


3.2.1 ”一 维 波动 方程 


对 于 一 根 两 端 固定 、 没 有 受到 任何 外 力 的 强 ， 奉 只 研究 其 中 的 一 段 ， 在 不 太 长 的 时 间 
里 ,固定 端 来 不 及 对 这 段 芒 产 生 影 响 ， 则 可 以 认为 固定 端 是 不 存在 的 ， 弱 的 长 度 为 无 限 大 。 
这 种 无 界 (-co<x<oo) 粥 的 目 由 振动 由 式 (3-22) 描 述 。 


9k 028 (3=22) 
or- Ox” 
如 采 保 证 数值 计算 的 区 间 足 够 大 ， 在 一 定时 间 内 ， 弱 的 振动 范围 始终 没有 超出 计算 
区 间 《 或 可 以 近似 地 这 么 认为 )， 那 么 下 能够 放心 地 使 用 周期 性 边界 条 件 。 取 2=1, 初 始 
条 件 为 : 


| =0 (3-23) 

在 数学 物理 方法 中 , 无 界 弦 的 目 由 振动 可 由 行 波 法 求 出 解析 解 , 即 达 天 贝尔 公式 。 
根据 达 天 贝尔 公式 ， 从 t=0 井 始 , z 的 初始 状态 2sech(x) 将 分 裂 为 两 个 sech 形 的 波 , 
分 别 癌 两 边 以 速度 g 传播 出 去 ， 即 正 行 波 和 有 反 行 波 。 下 和 耐用 傅 里 叶 谱 方法 求解 无 界 弦 
的 目 由 振动 问题 ， 并 与 达 天 贝尔 公式 的 预测 进行 比较 。 首 先 引 入 函数 vy 对 式 (3-22) 
进行 降 阶 : 


| = 2sech (x), 


oa 
(3-24) 
Ov _ 20U 
ot Ox” 
对 上 式 每 号 两 边 做 傅 里 叶 变 换 ， 化 为 偏 微 分 方程 组 : 
この 
(3-25) 
の WM の 22 
ーー ニー の "ん “7 
ot 
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这 样 束 可 以 用 ode45 求解 了 ， 详 细 代 人 码 如 下 : 
程序 3-3 


主 程序 代码 如 下 : 

clear all: close all: 

L=80; N=256; 

x=L/N*[-N/2:N/2-11; 

k=(2*pi/L)*[0:N/2-1 -N/2:-11].'; 

% 初 始 条 件 

u デ 2*sech( x ): ut=fft(u); 

vt=Zeros( 1,N); uvt=[ut Vt|: 

% 求 解 

al : t=0:0.5:20; 

[tuvtsol ビ ode45(wave1D'tuuvt, |,N,k,a); 

usol=1fft(uvtsol(:, 1:N),[],2); 

% 画 图 

p=[1 11 21 411; 

for n=1:4 
subplot(5,2,n) 
plot(x,usol(p(n),:),'k',LineWidth',1.5), xlabel x, ylabel u 
title(['t="' num2str(t(p(n)))]), axis([-L/2 L/2 0 2]) 

end 

subplot(5,2,3:10) 

waterfall(x,t,usol), view(10.45) 

xlabel x, ylabel t, zlabel u, axis(|-L/2 L/2 0 t(end) 0 2]) 


文件 wavel1D.m 代 偶 如 下 : 

function duvt=wavel D(t,uvt,dummy,N,k,a) 
ut=uvt(l:N); vt=uvt(N+[1:N]); 

duvt=[vt; -a^2*(k).^2.*ut]; 


计算 结果 如 图 3-5 所 示 ， 和 初始 状态 的 波形 分 裂 成 两 半 ， 并 分 别 间 x 轴 正 方 则 和 人 负 方 癌 
以 速度 4 运动， 这 和 达 上 明 贝 尔 公 去 给 出 的 结论 是 一 致 的 。 
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图 3-5 一 维 波 动 方程 的 行 波 解 


3.2.2 ”二 维 波动 方程 


将 3.2.1 小 节 中 的 一 维 无 界 弦 目 由 振动 方程 推广 到 二 维 空间 上 ， 束 得 到 了 摘 述 无 界 
(-oo<r。 了 Soo) 弾性 薄膜 的 波 功 方 程 : 


2 2 2 
a | (3-26) 
ル 02 


取 a=1， 初 始 条 件 为 : 


-20| (x-04) +(y+0.4) | [Cr04 +0-04 | Ou 


ue 上 (3-27) 


t=0 


可 以 这 样 理解 上 述 初始 条 件 的 物理 意义 : 两 手 抓 住 弹性 薄膜 的 两 个 位 置 ， 分 别提 起 ， 
使 薄膜 上 形成 两 个 峰 ， 在 t=0 时 刻 突然 松竹。 根据 生活 常识 可 以 预料 到 ， 这 两 个 位 置 的 薄 
膜 将 来 回 振动 ， 与 此 同时 ， 产 生 的 波 回 四 周 传 播 ， 而 且 波 与 波 会 在 相遇 处 登 加 。 
为 便于 求解 ， 引 入 函数 v 对 式 〈3-26) 进行 降 阶 ， 得 : 
Ou _ 
ot 


2 2 
Ov 一 っ ^ 0 十 OO 77 
ot Ox” の 2 


y 


(3-28) 
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对 上 去 等 咏 两边 做 傅 里 叶 变 换 ， 得 到 种 微分 方程 组 : 


OU _ $s 

ot 

OV 2 / ァ 2 2\ 2 
2 (+ が 7 


接 下 来 用 ode45 求解 即 可 ， 代 但 如 下 : 
程序 3-4 


主 程序 代码 如 下 : 

clear all: close all: 

L=4; IN=64: 

x=L/N*[-N/2:N/2-11; y=x; 

kx=(2*pi/L)*[0:N/2-1 -N/2:-1]; ky=kx; 

[X,Y |]=meshgrid(x,y); 

[kX,kY |]=meshgrid(kx,ky); 

K2=kX.^2+kY.^2: 

% 初 始 条 件 

u=exp(-20*((X-0.4).^2+(Y+0.4).^2))+exp(-20*((X+0.4).^2+(Y-0.4).^2)); 

ut デ =fft2(u): vt=zeros(N); uvt=[ut(:); vt(:)]; 

% 求 解 

a=l; t=[0 0.25 0.5 ]]; 

[t,uvtsol]=ode45('wave2D'".t,uvt, [|,N,K2(:),a); 

% 画 图 

for n=1:4 
subplot(2,2,n) 
mesh(x,y,1fft2(reshape(uvtsol(n, l:N’2),N,N))), view(10,45) 
title(['t=' num2str(t(n))]), axis([-L/2 L/2 -L/2 L/2 0 1]) 
xlabel x, ylabel y, zlabel u 


end 


文件 wave2D.m 代码 如 下 : 

function duvt=wave2D(tuuvt,dummy,N,K2.a) 
ut=uvt(1:N^2); vt=uvt(N’^2+|[1:N^2]); 
duvt=[vt; -a“2*K2.*ut]; 


程序 输出 结果 如 图 3-6 所 示 ， 它 有 反映 了 弹性 薄膜 上 的 波 疝 四 周 传 播 的 过 程 。 


(3-29) 
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图 3-6 二 维 波动 方程 的 数值 解 


3.2.3 一 维 非 线性 评定 讶 方程 


非 线 性 酬 定 请 方程 (nonlinear Schodinger equation) 在 非 线性 物理 学 中 的 地 位 是 举 足 轻 
重 的 ， 它 广 泛 应 用 于 非 线 性 光纤 共和 学、 等 离子 体 物 理 、 凝 聚 态 物 理 等 领域 ， 它 的 归 一 化 形 
式 如 下 : 


Ou _ i Ou 
ot 22xr< 


其 中 ,4 为 复 振幅 ，x、t 代表 空间 坐标 、 时 间 。 对 式 (3-30) 做 傅 里 叶 变 换 ， 得 偏 微 


+ilul wu (3-30) 


入 ・7 2 
2 = Fo 


1 Ff) (3-31) 

貼 逆 散 射 方 法 可 知 , 当初 始 条件 騙 u(x, 0)=MrsechG り 時 , 如果 N=1，|u| 的 形状 在 传播 
过 程 中 保持 不 变 ， 如 果 N 宇 2，|u| 的 形状 则 进行 周期 性 的 变化 。N 称 为 孤子 的 阶 数 ，N=1 
对 应 的 是 基态 孤子 ，N 宇 2 对 应 的 是 高 阶 孤子 。 这 里 取 N=2 的 情况 作 初 始 条 件 ， 使 用 传 里 
叶 谱 方法 求解 式 (3-31) 的 代码 如 下 : 
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程序 3-5 


主 程序 代码 如 下 : 

clear all: close all: 

L=20; N=256; 

x=L/N*[-N/2:N/2-11; 

k=(2*pi/L)*[0:N/2-1 -N/2:-11].'; 

% 初 始 条 件 

u デ = デ 2*sech( x ): ut=fft(u); 

% 求 解 

t=0:0.1:5; 

[t,utsol]=ode45('NLSE',t,ut, [|,k); 
usol=ifft(utsoL,[],2); 

% 画 图 

subplot(2,2,1 ) 

waterfall(x,t,abs(usol)) 

axis([-10 10 0 3 0 4]), xlabel x, ylabel t, zlabel lu 
subplot(2,2.2) 
waterfall(fftshift(k),t,abs(fftshift(utsol,2 )) ) 
axis([-40 40 0 5 0 80]), xlabel k, ylabel t, zlabel |fft(u)| 


文件 NLSE.m 代码 如 下 : 

function dut=NLSE(t,ut,dummy,k) 
uifft(ut): 
dut=-(1/2)*(k.^2).*utti*fft((abs(u).^2).*u); 


程序 输出 结果 如 图 3-7 所 示 ， 左 图 为 空域 上 的 u(x, 四 ， 石 图 为 频 域 上 的 Uk, 四 二 者 都 
在 传播 过 程 中 做 周期 性 变化 ， 最 短 周 期 约 为 zw/2， 这 与 逆 敌 里 法 的 解析 结 末 相符 。 


图 3-7 非 线 性 本 定 认 方 程 中 的 三 阶 孤子 
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3.3” 传 里 叶 谱 方法 来 解 复杂 仿 微 分 方程 (组 ) 


3.3.1 一 维 KdV 方程 


1834 年 , 英国 科学 家 、 造船 工程 州 Scott Russel 观察 到 一 只 运行 的 木船 船 涉 挤 出 一 堆 
水 来 ， 当 有 船 突然 集 下 时 ， 这 堆 水 葛 保 持 痢 它 的 形状 ， 以 大 约 13km/h 的 速度 往 前 传播 。 
1895 年 由 集 兰 数学 家 Korteweg 和 de Vries 共同 导出 了 在 浅水 沟 表 面 上 按照 一 个 方 同 
传播 的 波 的 运动 方程 ， 也 就是 KdV 方 程 (Korteweg-de Vries equation)， 它 的 形式 可 以 
与 成 : 


3 
EO RR (3-32) 


の Ox Ox 989n 


z 是 时 间 t 和 空间 x 的 函数 。 式 (3-32) 的 孤子 解 为 wy/4.sech {1/2[ax-(ata )t+6]}， 其 
中 ，a 和 5 为 任意 单数 。 对 上 式 做 傅 里 叶 变 换 ， 得 到 : 


ik 12F {F [a]- Flika]\ (Gk) a (3-33) 
使用 r=0 时 的 孤子 解 作为 初始 条 件 ， 令 a=2、5=0， 则 w(x, 0)=sech (x)， 用 傅 里 叶 谱 方 


法 求解 KdV 方程 的 代码 如 下 : 


程序 3-6 


主 程序 代码 如 下 : 

clear all: close all: 

L=20; N=128: 

x=L/N*[-N/2:N/2-11:; 
k=2*pi/L*[0:N/2-1 -N/2:-11].'; 

% 初 始 条 件 

u=sech(x).“2; ut=fft(u); 

% 求 解 

t=0:0.05:1; 
[t,utsol]=ode45('KdV',t,ut,[],k); 
usol=ifft(utsoL,[],2); 

% 画 图 

subplot(2,2,1) 

waterfall(x,t,usol), axls([-10 10 0 1 0 11]) 
view(-7,35), xlabel x, ylabel t, zlabel lu 
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subplot(2,2,2) 
waterfall(fftshift(k),t,abs(fftshift(utsol,2 )) ) 
view(-7,30), axis(|-20 20 0 1 0 15]) 
xlabel k, ylabel t, zlabel |fft(u)| 


KdVm 文件 代码 如 下 : 

function dut=KdV(t,ut,dummy,k) 

u=ifft(ut); 
dut=-(1*k).*ut—12*fft(u.*1fft(1*k.*ut))-—(1*k).^3.*ut; 


程序 输出 结果 如 图 3-8 所 示 ， 左 图 为 空域 上 的 w(x, 轿 ， 右 图 为 频 域 上 的 i(h, 力 。 由 孤子 
的 解析 解 可 知 ， 孤 子 的 形状 保持 不 变 ， 并 以 5 个 空间 单位 /1 个 时 间 单 位 的 速度 癌 x 正方 同 
移动 ， 相 应 地 ， 频 域 上 的 振幅 始终 不 变 ， 这 与 图 中 的 计算 结果 完全 一 化 。 


和 


[fft(u) 


图 3-8 KdV 方程 的 孤子 解 


3.3.2 ”二 维 浅 水 方程 组 


浅水 方程 描述 了 具有 自由 表面 、 密度 均匀 、 深 度 较 浅 的 液体 在 重力 作用 下 的 流动 过 程 ， 
用 十 研 究 潮 濾 和 河 流 , 具体 形式 如 下 : 


ou _ ,Ou_, Ou O77 (3-34) 


其 中 , 7 代表 水深 , 1 为 时 间 , x 和 ?了 了 是 水 平面 上 的 坐标 ， ムッ 走 * 和 方 向上 的 流速 , 
g 为 重力 加 速度 。 对 方程 组 〈3-34) 的 等 号 两 边 做 x-y 空间 上 的 三 维 傅 里 叶 变 换 ， 得 到 偏 
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应 分 方程 组 : 


Nik Fl PMS を EEE 
=F{ PF [Fre [i Fk き | |- ig ん 方 (3-35) 
=-F{ F(A ik] + 7 [OF | ik] } -igh,# 


取 g=1， 和 初始 条 件 为 n(x, y, 0)=0.1:exp(-x*/10-yY/10)+0.1 和 w(x, y, 0)=v(x, y, 0)=0， 用 传 
里 叶 谱 方法 计算 上 述 方程 的 代码 如 下 : 


程序 3-7 


主 程序 代码 如 下 : 

clear all: close all: 

L=40; N=64: 

x=L/N*[-N/2:N/2-11; y=X; 

kx=2*pi/L*[0:N/2-1 -N/2:-1]; ky=kx; 

[X,Y |]|=meshgrid(x,y); 

[kX,kY |]=meshgrid(kx,ky); 

% 初 始 条 件 

e=0.1*exp(-X.^2/10-Y.^2/10)+0.1; 

et=fft2(e); ut=zeros(N^“2,1); vt=zeros(N^“2,1); 

euvt=[et(:); ut; vt; ]; 

% 求 解 

t=[0 5 10 23|; e=1; 

[teuvtsoll=ode45(shallow water',t,euvt,[],kX,kY,N,g); 

% 画 图 

for n=1:4 
subplot(2,2.n) 
mesh(x,y,real(ifft2(reshape(euvtsol(n,1:N^2),N,N)))) 
axis([-20 20 -20 20 0.1 0.2|), title(['t="' num2str(t(n))|) 
xlabel x, ylabel y, zlabel \eta, view(-80,45) 


end 


文件 shallow waterm 代 偶 如 下 : 
function deuvt=shallow water(t,euvt,dummy,kX,KY,N,g) 
et 王 euVt( 1 :N^2): ut=euvt(N^2+[1:N^2]); vt=euvt(2*N^2+[1:N’^2]); 
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et=reshape(et,N,N): ut=reshape(ut,N,N); vt=reshape(vt, N,N); 

e=ifft2(et); u=ifft2(ut); v=ifft2(vt); 

deuvt=[reshape(—1*kX.*fft2(e.*u)-1*kY.*fft2(e.*v),N’2,1); 
reshape(-tft2(v.*ifft2(1*kY.*ut)+u.*ifft2(1*kX.*ut) )-g*i*kX.*et,N^2,1); 
reshape(—fft2(u.*1fft2(1*kX.*vt)tv.*1ifft2(1*kY.*vt))-e*i*kY.*et,N’2,1)]; 


程序 输出 结 末 如 图 3-9 所 示 ， 从 {=0 时 刻 开 始 ， 一 个 三 维 高 期 形 水 柱 在 重力 的 作用 下 
圭 期 ， 并 激 起 了 辐 四 周 传 播 的 圆 形 水 六。 


图 3-9 ”浅水 方程 的 计算 结果 


3.3.3 ”二 维 粘 性 Burgers 方程 


Burgers 方程 是 流体 力学 中 一 个 非 第 重要 和 基本 的 偶 微 分 方程 ， 它 广泛 地 应 用 于 罕 
气动 力学 、 湛 流 、 交 通 流 、 热 传导 以 及 半导体 模拟 等 领域 。 二 维 粘 性 Burgers 方程 的 形 
式 如 下 : 


eg _ (2 2] (6 8 _ 
| “二 + 名 (3-36) 


其 中 , z 代表 速度 ，x、y 为 空间 坐标 ，t 为 时 间 , vv 为 粘性 系数 。 对 上 式 做 二 维 傅 里 叶 
变换 ， 得 : 
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ri Ci i+) 時 


取 ャ =0.01, 初 始 条件 w(x, y, 0)=sech(4x“+4y*)， 傅 里 叶 谱 方法 的 代码 如 下 : 


程序 3-8 


主 程序 代码 如 下 : 

clear all: close all: 

L=4: N=64; 

x=L/N*[-N/2:N/2-11; y=x; 

kx=2*pi/L*[0:N/2-1 -N/2:-1]; ky=kx; 

[X,Y |]=meshgrid(x,y); 

[kX,kY |=meshgrid(kx,ky); 

K2=kX.^2+kY.^2; 

% 初 始 条件 

u=sech(4*X.^2+4*Y.^2); 

ut=fft2(u); 

% 求 解 

v=0.01; t=0:0.4:1.2; 

[t,utsol]=ode45('burgers',t,ut(:),[ |],N,kX,kY,K2,v); 

% 画 图 

for n=1:4 
subplot(2,2.n) 
mesh(x,y,real(1fft2(reshape(utsol(n,:),N,N)))) 
axis(| -2 2 -2 2 0 1]), xlabel x, ylabel y, zlabel u 
view(46,20), title(['t=' num2str(t(n))|) 


end 


burgers.m 文件 代码 如 下 : 

function dut=burgers(t,ut,dummy,N,kX,kY,K2,v) 
ut=reshape(ut,N,N): uifft2(ut): 
dut=reshape(-v*K2.*ut-tft2(u.*ifft2(1* (kX+kY ).*ut) ),N^2.1): 


程序 执行 结 末 如 网 3-10 所 示 , 初 始 波形 交 洒 濱 変成 了 激 波 , 


这 是 符合 实际 情况 的 。 
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图 3-10 二 维 粘 性 Burgers 方程 的 计算 结果 


3.3.4 二 维 Schnakenbersg 模型 


斑 図 Cpattern) 是 一 类 普 近 存在 于 目 然 界 、 在 时 间或 空间 上 具有 茶 种 规律 的 非 均 
匀 宏 观 结 构 。 反 应 -扩散 系统 (reaction-diffusion system) 是 斑 图 理论 中 研究 得 最 为 广 
泛 的 系统 ,， 它 起 源 于 化 学 反应 系统 ,但 又 不 局 限于 此 ,还 广泛 应 用 于 生物 和 学、 物理 学 、 
医学 、 金 融 学 等 。Schnakenberg 模型 是 反应 -扩散 系统 中 的 一 个 有 趣 的 模型 ,数学 形式 
如 下 : 


rr lary 


Ot pr の 2 
ov 9° 0 Pes 
Br っ 2 っ 2 ャ オル ( ー 7 yv) 


其 中 ,uw 和 v 可 看 做 两 种 化 学 反应 物质 的 浓度 ，x、y 为 空间 坐标 ,1 为 时 间 ，a、b、d、 
) 为 常数 。 对 式 (3-38) 做 二 维 传 里 叶 变换 ， 可 将 其 转化 为 偏 微分 方程 组 ， 
A (B+ ry Fla-F [re [aT [| 


Rg (BR +E) ty FF [9] | 


(3-39) 


参数 取 值 为 : a=0.1，4b=0.8，d=26，y=100。 为 了 得 到 诅 型 波 ， 将 初始 条 件 设置 为 : x 
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在 xy》 平面 原点 处 为 1， 在 其 他 位 置 为 0, 在 整个 x-y 平面 上 均 为 1。 利 用 倍 里 叶 道 方 法 
求解 该 模型 的 代码 如 下 。 


程序 3-9 


主 程序 代码 如 下 : 

clear all: close all: 

L=16; N=64: 

kx=2*pi/L* 0:N/2-1 -N/2:-1]; ky=kx; 

[kX,kY =meshgrid(kx,ky): 

K2=kX.^2+kY.^2: 

% 初 始 条件 

u=Zeros(N); u(N/2,N/2)=1; v=ones(N); 

ut=fft2(u); vt=fft2(v); 

uvt=[ut(:); vitl:)|; 

% 求 解 

a=0.1; b=0.8; d=26; gamma=100; t=[0:0.1:0.3]; 

[t,uvtsol]=ode45('schnakenberg',t,uvt,[],K2,N,gamma,a,b,d); 

% 画 图 

for n=1:4 
subplot(2,2,n) 
gca=pcolor(ifft2(reshape(uvtsol(n,1:N’2),N,N))); axis off 
set(gca,'LineStyle','none'), shading interp 
title(['t="' num2str(t(n))|), axis('square'), colormap(gray) 


end 


schnakenberg.m 文件 代码 如 下 : 

function duvt=schnakenberg(t,uvt,dummy,K2,N,gamma,a,b,d) 

ut=uvt(1:N^2); vt=uvt(N^2+1:end); 

ut=reshape(ut, N,N); vt=reshape(vt, N,N); 

u=1fft2(ut); v=1f{ft2(vt); 

duvt=|[reshape(-K2.*uttgamma*fft2(a-ut+(u.^2).*v),N’2,1); 
reshape(—-d*K2.*vttgamma*fft2(b-(u.^2).*v),N’2,1)]; 


程序 输出 的 结果 如 图 3-11 所 示 ， 这 与 化 学 实验 中 观察 到 的 丢 型 波 一 致 。 
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t=0 t=0.1 


t=0.3 


图 3-11 求解 Schnakenberg 模型 得 色 的 皿 型 波 


第 4 剖 谱 求 姓 直 阵 


4.1 道 氷 号 邊 隆 的 号 出 和 皮 用 


在 生产 实践 过 程 中 ， 某 些 函 数 关 系 的 具体 表达 式 是 未 知 的 ， 上 只 能 通过 实验 测量 得 到 该 
为 数 上 的 一 些 离散 的 数据 点 。 所 以 ， 人 们 斋 望 通过 这 些 离散 的 数据 点 构造 一 个 已 知 函 数 来 
近似 地 描述 并 替代 未 知 函 数 。 此 外 ， 尽 管 有 些 函 数 的 表达 式 是 已 知 的 ， 但 由 于 太 过 复杂 演 
琐 ， 不 便 对 其 进行 理论 计算 和 数值 分 机 ， 所 以 也 有 必要 构造 一 个 稍 单 函数 来 符 代 和 它 。 

上 述 问 题 用 数学 语言 表达 为 : 己 知 在 区 间 [a, 上 的 人 位 連 xr ,xzw 的 函数 值 ui， 
の 。 ..., UN， 求 一 个 水 数 p(X) 通过 所 有 已 知 点 (4,41), (>) U2), .…, (Xn, UN)， 即 : 

U=DO0)， j=1,2,...,N (4-1) 

其 中 ， 用 ヵ px) 近似 未知 貢 数 的 方 法 称 妨 捕 値 法 (interpolation )，p(x) 称 为 插值 函数 。 下 
和 面 介绍 用 谱 方 法 人 确定 插值 函数 PC) 的 过 程 ， 并 将 其 用 于 计算 离散 数据 的 各 阶 导 数 、 偶 微分 
方程 (组 ) 的 数值 求解 。 


4.1.1 谱 方 法 插值 


考虑 在 区 间 [0, 2x] 上 、 具 有 周期 性 边界 条 件 的 插值 问题 。 在 此 区 则 上 间距 为 hh 的 NV 个 
位 置 zi x2, .XN 对 应 的 函数 值 为 ,ww,..., uw。 其 中 ，xj=jh，h=2x/N， 寻 |: 


(4-2) 


在 推导 前 先 做 3 点 現 明 : 

(1) 选择 区 间 [0，2zr] 是 为 了 方便 讨论 ， 在 该 区 间 上 得 出 的 结论 同样 适用 于 对 其 平移 得 
到 的 其 他 区 间 (如 [=-x, xl)， 并 可 以 通过 乘 以 放 因子 方便 地 将 络 论 转化 到 其 他 长 度 非 2 
的 任意 区 同上 ( 如 [-, 7])。 

(2) 所谓 周期 性 边界 条 件 ， 是 指 入 个 函数 值 Wi, め , …, ux 可 等 效 地 看 做 是 无 努 多 个 图 
数值 ,wi1, Wo, 2 …) ri Un; ar 的 一 部 分 ， 并 存在 47+zW 一 7 的 关系 (m 为 任意 整数 )。 
这 里 把 讨论 的 函数 当做 周期 为 2r 的 周期 函数 处 理 。 

(3) N 的 奇 俩 会 导致 搁 下 来 的 推导 细节 有 所 兰 民 ， 但 过 程 是 相似 的 ， 所 以 本 书 具 分 析 
NM 为 偶数 的 情况 。 

若 対 序列 1, U2,，.…, MU 做 离散 传 里 时 变换 ， 那 么 空域 〈 时 域 ) 上 的 间隔 天 决定 了 频 域 
上 的 区 间 为 [-x/h, zh]〈( 见 表 3-1)。 由 式 (4-2)， 该 区 间 也 可 写 为 [~-N/2, 2]。 本 章 中 的 高 
故 傅 里 叶 释 换 对 定义 为 : 
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ミ N N 
の 2 Sl (4-3) 
ノー 
] N/2 。 
ニュ ー 2 hs = も …W (4-4) 
ん =ーW/2+1 


这 与 第 3 章 给 出 的 Matlab 中 离散 傅 里 叶 变 换 对 的 定义 略 有 不 同 , 但 实质 是 一 样 的 。 注 
意 色 式 (4-4) 中 的 频率 分 量 并 不 是 完全 对 称 的 , た 中 有 0、 よ 1、 +2、…… 、 圭 (N/2-1)、N/2,， 
却 没 有 -N/2， 这 在 求解 插值 函数 时 会 引起 一 些小 小 的 问题 。 所 以 ， 令 站 wo=2， 并 重新 定 
义 离 散 傅 里 叶 逆 变换 为 : 


N/2 
ニー Ye j=L,..,N (4-5) 

ん =-//2 
其 中 “z2 ”代表 求 和 时 在 k=+N/2 的 項 上 乗 以 1/2。 需要 强调 的 是 , 式 (4-3) 和 式 (4-4) 
仍然 是 离散 傅 里 时 变换 对 的 定义 ， 式 〈4-5) 仪 是 用 于 确定 插值 函数 p(X) 的 。 求 p(x) 时 需要 


把 式 (4-5) 中 的 推广 到 [0, 2x] 上 的 任意 实数 x， 即 : 


2 
p(x) = > en,, x el[0, 27| (4-6) 


硝 定 插值 函数 的 步骤 是 这 样 的 : 先 用 式 (4-3) 将 序列 wj，w2，..., Uw 变换 为 2 の 1, 
UN ,22， 令 有 =2， 再 根据 序列 42, mon, .2 通过 式 《〈4-6) 得 到 p(x)。 这 
样 得 到 的 插值 函数 p(x) 可 用 来 求 序列 四, 2 ,在 闷 处 的 各 阶 导 数 ， 即 : 


(4-7) 
OX” 


上 和 面 介绍 的 是 通过 谱 方 法 计算 插值 孙 数 p(x) 来 估算 序列 如, wz,…, uw 在 x 处 的 导数 的 基 
本 原理 。 接 下 来 ,为 了 把 上 述 过 程 转化 为 方便 的 矩阵 运算 ， 采 用 如 下 思路 : 首先 求 出 周期 
6 因数 的 插值 函数 SYMx)， 然 后 将 任意 序列 wu1, u2,..., ww 写 为 周期 8 函数 的 线性 组 合 ， 进 而 
可 把 它 的 插值 函数 p(x) 写 为 SNX) 的 线性 组 合 ， 最 后 找到 p(x) 和 Sx) 在 x 2, ……, XN 处 导数 
的 关系 并 写 为 矩阵 形式 ， 给 出 针对 任意 序列 1, め , .…, uy 的 谱 求 导 和 矩阵 。 


4.1.2 ” 谱 求 导 知 阵 
周期 6 函数 定义 为 : 


| (j%N =0) 

が かこ 

/ |0, (/% パテ 0) 
其 中 ， 百 分 写 “%” 代 表 求 余 运算 ， 周 期 6 函数 在 j=mN (7 为 任意 整数 ) 时 取 值 为 1, 

其 他 情况 为 0， 它 所 对 应 的 横 坐 标 为 w=jh。 利 用 式 (4-3) 求 周期 6 函数 的 离散 傅 里 叶 变 

換 , 第 果 太一 常 数 h: 


(4-8) 


N 
本 全 ー 
人 ES (4-9) 
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再 利用 式 (4-6) 求 周期 6 函数 的 插值 孙 数 : 


N/2-1 N/2 
大 3 ci + 3 


k=-N/2 k=—N/2+1 


直下 二 N22 | i N22 
= >》 ete > ee" 


k=—N/2+1/2 k=—N/2+1/2 
, が /2-72 
= ラーCO8(x/2) > ea (4-10) 
ーー が /2+172 


i(-N/2+/2)x i(N/2+1/2)x 


a 
le 

-i(N/2)x = 
sin ( Nx/2) 
sin (x/2) 

由 式 “4-2)， 最 终 得 到 的 周期 6 函数 的 插值 函数 为 周期 sinc 函数 Sw: 

sin (nx /h) 
po 

可 以 证 明 ，Sw(x)r_so=1。 图 4-1 显示 了 周期 6 图 数 以 及 它 的 插值 图 数 一 一 周期 sinc 也 
数 SN(X)， 二 者 的 周期 均 为 2x， 无 论 N 取 值 为 4 还 是 16， 后 者 者 精确、 巧妙 地 经 过 了 前 者 
的 所 有 离散 点 。 


h 
= 5=C0s(x/2) 


(4-11) 


N=4 
1 
0.8 
0.6 
の 0.4 
0.2 
0 
ー0.2 
—T 0 nT 2 3 
X 
N=16 
1 
0.8 
0.6 
の 0.4 
0.2 
0 
ー0.2 
一 天 0 nT 2T 3 
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藻 属 区 同 [0, 2z] 上 的 序列 wj, wz, ..…., Uw 写 为 周期 6 函数 的 线性 对 加 ， 即 : 
U, 二 O (4-12 ) 


那么 ， 将 其 中 的 周期 8 函数 替换 为 周期 sinc 函数 Sw， 就 得 到 序列 i iw, .…。 uw 的 插值 函数 
p(X): 


N 
p(x)=2 usSy (ジー) (4-13 ) 
m=1 


注意 到 p(x) 束 是 SN(X) 的 线性 组 合 ， 如 果 用 p(x) 来 估算 序列 ,ww, .…, uw 在 w=jh 处 的 1 
阶 导数 ， 则 有 : 


p(s) = dus, (x 1) (4-14) 
其 中 ,多 xw=(j-m)h。 将 上 式 写 为 矩阵 形式 : 
P(x) SO SC S84 20) SUN 7 
/() Sw (h) Sy (0) Sw(-h) の 
pw) |=| (2 Si,(h) Ss,(0) Us (4-15) 
pOn)) (54((N-1)») Uy 


因此 ,只 需 在 向 量 G, ww, .…, uw 上乘 以 一 个 NN 阶 方 阵 即 可 得 到 由 它 的 谱 方 法 插值 函数 p(x) 
的 导数 组 成 的 向 量 (p00), p02)，...,， pn) ， 这 个 N 阶 方 阵 就 是 谱 求 导 和 矩阵 Cspectral 
differentiation matrix)。 下 文 用 Dy 来 表示 1 阶 NxN 谱 求 导 和 矩阵 , DY 表示 nn 阶 NXN 谱 求 导 千 阵 。 
周期 sinc 函数 S) 在 = 处 的 1 阶 寻 数 为 : 


a 0 (7%W=0) 
yy)=1 ] | (4-16) 
(-1)’/2:cot(jh/2),  (j%Nz0) 
将 其 代入 到 式 “(4-15〉 中 的 VW 阶 方 了 泗 ， 得 到 1 阶 谱 求 导 和 矩阵 : 
cot (17/2) 
a 
cot(1h/2) cot( 27/2) 
2 2 
cot (27/2) cot(37/2) 
2 ， 
D,, = (4-17) 
cot (37/2) | 
| 2 
cot(17/2) 
2 
cot (17/2) 
2 0 


类似 地 ， 还 可 以 得 到 局 阶 谱 求 导 矩阵。 周期 sinc 員数 So) 在 = が 处 的 2 阶 导 数 为 : 
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2 
本 (7%W=0) 
/ ーー 3h 6 
Sw (x,)= (4-18) 
(-1) csc” (jn/2) 可 
(j%N #0) 
那么 ，2 阶 详 求 导 和 矩阵 为 : 
Lese? 学 
2 2 
lese? 加 
2 2 
2 
p9 = RE 4-19 
N 6 ( ) 
lese? 加 
2 2 
Tese? | 
2 2 
周期 sinc 函数 SM) 在 7 处 的 3 阶 导数 为 : 
0, (j%N =0) 
Sy (x,)= Ra (4-20) 
A A | ea eT a Sg 0 
(-1) a 3ese | (/% パテ 0) 
同样 得 到 3 阶 谱 求 导 和 矩阵 : 
0 -cot[ 歇 二 CSC- 多 -到 
2 2) 2 有 
-cl う ュ csc* 多 -五 cot( 学 | 3 cc? 区 - 匹 
2/| 4 2 272< 2 4 2 2p2 
ct( iese 的 -到 | et( | 3ese: 学 |- と | 
2 /| 4 の ‘ グ 2 
DG) = “GD 
37 13 2/3h) x 
et( | ese 閉 - 秀 | 8 
lh\ 3 2/1) x 
le 的 -至 
17 2 (1h) x 
les 的 -至 0 
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构造 半 阶 谱 求 导 抢 阵 DY 的 一 般 方法 为 : 

(1) 求 周期 sinc 函数 SMy) 在 = 处 的 nn 阶 导数 SOCo)。 

(2) D8 的 第 1 列 为 (S@ (xy), SP (x1), SP (x2), SO ， 第 2 列 为 (8 (zw 
SY (の QD; SK Gy) 第 3 NO (Ceo) SY CD 9 CD, sesy の Cy) …… 
依 此 类 推 。 

此 外 ， 周 期 函数 SW (x) 的 奇偶 性 是 由 的 奇偶 决定 的 ， 这 在 构造 DW 时 可 以 产生 一 些 
便利 : 


9 Sw(x)  - (-1)" SEA (4-22 ) 
Ox” be Ox” py 
当 77 为 奇数 时 ， 必 有 : 
2 | 0 7%N=0 (4-23) 
ん a 


当 为 代数 时 ，SY C0) 在 x=% 处 Y%N=0) 的 取 值 是 无 穷 小 /无 穷 小 的 形式 ， 知 要 用 洛 必 达 
法 则 求 它 的 极限 ， 即 : 


0 Sw (x) i j%N=0 (4-24 ) 
Ox” x つっ 0 Ox” 


人 工 计算 SNX%) 的 nn 阶 导数 的 工作 量 随 看 阶 数 n 的 增 大 而 显著 增加 ,比较 省 时 省 力 的 方 
法 是 利用 Matlab 的 符号 运算 功能 , 调用 diff 函数 和 limit 函数 求 导 、 求 极限 , 并 结合 toeplitz 
函数 ， 可 实现 程序 上 自动 生成 DW ， 有 兴趣 的 读者 可 以 目 行 答 试 。 

由 于 谱 求 导 和 窍 阵 DY 是 在 计算 区 间 长 度 为 27 的 前 提 下 构造 的 ,所 以 知 实 际 的 计算 区 间 
长 上 度 为 KL， 则 必须 在 D 上 乘 以 缩放 系数 才 可 保证 结果 正确 ， 即 : (2x/7/)" の め % 。 

下 面 给 出 使 用 谱 求 导 和 矩阵 D,、D8 、D? 对 Cme" や 求 1、2、3 阶 导数 ， 并 与 精确 解 
Z(y)=rcos(ye の 、 7)= ecos^(xy)-sim(y)1、 uo = ecos(ry)[cos^(ry)- 3sin(7ry)-1] 


比较 的 实例 。 代 人 码 如 下 : 


程序 4-1 
clear all: close all: 
L=2: N=32: 
x=L/N*[-N/2:N/2-11':; 
% 构 造 谱 求 可 矩阵 
h=2*pi/N; column=[0 0.5*(-1).^(1:N-1).*cot((1:N-1)*h/2)]'; 
D=(2*pi/L)*toeplitz(column,column([ 1 N:-1:21])); 
80 
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十 


column=[-pl^2/(3*h^2)-1/6 -0.?\(-1).^(1:N-1)./Sin(h*(1:N-1)/2).22 1: 

D2=(2*pi/L)^“2*toeplitz(column); 

column=[0 (-1).^(1:N-1).*cot((1:N-1)*h/2).*(.… 
-p1^2/(2*h^2) 十 3/4*csc((1:N-1)*h/2).22) 比 

D3=(2*pi/ 化 )^3*toeplitz(column,column([|1 N:-1:2|)): 

% 导 数 的 精确 解 

u=exp(sin(p1*x)); 

du exact(:,l1)=p1i*cos(p1*x).*u; 

du exact(:,2)=p1^2*(cos(p1*x).^2-—sin(p1*x)).*u; 

du exact(:,3)=p1^3*cos(p1*x).*(cos(p1*x).^2-—3*sin(p1*x)—1).*u; 

% 谱 方法 来 导 

du Fourier(:,1) モ D*u: 

du Fourier(:,2)=D2*u; 

du Fourier(:,3)=D3*u; 


error=max(abs(du exact-du Fourier)): 
% 画 関 
labels=fu"(x uC "(x)')}; 
for n=1:4 

subplot(2,2.n) 


plot(x,u,'k','LineWidth',1.5) 
xlabel x, ylabel u(x), title('u(x)=e^{sin(\p1xX)}') 
else 
plot(x,du exact(:,n-1),'k,x,du Fourier(:,n-1),.r .… 
, MarkerSize,13,LineWidth',1.5) 
title(| Error {max}=' num2str(error(n-1 ) ) |) 
xlabel x, ylabel(labels(n-1 )) 
end 


end 


如 图 4-2 所 示 ， 曲 线 为 精确 的 u(x)、wux)、u”"(x) 和 wu”(x)， 点 为 利用 谱 求 导 和 矩 
阵 计 算得 到 的 xy)、z7G) 和 zz)。 在 M 的 取 值 仅 为 32 的 情况 下 ， 用 谱 求 导 算 
阵 计算 u(x)=e*™ 中 的 1、2、3 阶 导数 与 精确 解 的 最 大 误差 分 别 在 10 “"、10 一 、10 
数量 级 。 
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u(xX)=es Errormax=7.1276e—014 
5 
2.5 
2 
9 と 0 
一 
] 
0.3 
0 一 
一 | —0.5 0 0.5 ] 一 ] ー0.3 0 0.5 ] 
X X 
Errormax=2.6308e—012 Errormax=2.4332e-—010 
10 150 
100 
0 
50 
ご -10 と 0 
3 3 
ー50 
ー20 
ー100 
7 -0.5 0 0.5 1 a ー0.5 0 0.5 ] 
X 


图 4-2 ”用 谱 求 导 矩 阵 计算 zo)=e" ぐ 的 1、2、3 阶 导数 (点 ) 并 与 精确 解 ( 曲线 比较 
4.1.3 用 谱 求 导 矩 阵 求解 偏 微分 方程 的 步 又 


与 第 


3 章 一 梓 , 待 求 解 的 偏 微分 方 程 的 普遍 形式 訪 : 


0 1 
ot" 


= Lu +N(u) (4-25) 
其 中 , u(x, 四 为 x、I 的 函数 ,， 工 代表 线性 算 行 ，N(w) 为 非 线 性 项 。 通 过 函数 代 换 可 将 等 

写 左 边 的 n 阶 村 数 0%67 降 到 1 阶 ， 所 以 下 和 面 分 析 式 “4-26) 的 求解 过 程 ， 这 与 式 (4-25) 

降 阶 后 得 到 的 方程 组 的 解法 是 一 样 的 。 


Tu+N(u) (4-26) 
用 導 求 早 短 降 数 債 求 和解 式 (4-26) 的 步骤 如 下 : 
(1) 在 x 轴 上 的 计算 区 间 内 ， 将 x 离散 化 为 N 个 等 间距 的 位 置 x=(xi1, x2, ..., xw)'， 相 
应 地 ， 将 函数 离散 化 为 N 维 向 量 w= 462, -…。 gy) 「。 


(2) 在 等 写 右 边 ， 将 线性 算 符 L 和 非 线 性 项 NO 里 所 有 对 函数 wr 的 求 导 运算 替换 为 
谱 求 导 和 矩阵 与 向 量 w 的 乘 运算 ， 即 : 0"w/6x" 一 DY z, 井 閣 し 和 が (の 都 号 成 年 隆 形式 , 得 
到 形 如 式 (4-27) 的 微分 方程 组 。 注 意 ， 若 计算 区 间 长 度 不 是 2x， 则 必须 在 DW 上乘 以 


(3) 用 时 间 步 进 法 〔 欧 拉 法 、 龙 格 - 库 塔 法 等 ) 数值 计算 式 〈4-27) 等 号 左 辺 的 の 87, 
在 周期 性 边界 条 件 下 ， 得 到 不 同 1 处 的 问 量 u。 
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Ul L! LL, Ls Ln (名 Ul 

2 の LL Lb, Ls Lr || め の 

人 Ls Ly Ls ny | Us | +N Ww (4-27) 
Uy Ly Lv Lvs … Lyw Un Uy 


针对 步骤 2, 这 里 以 L=a:0%/6x*+b:60/Oxtc、N(W)=u + Ow/Ox*+f (x)-Ou/6x 为 例 进 行 说 明 ， 
a、b 和 cc 分 别 为 常数 。 对 线性 算 符 L， 除 了 将 0%V6x” 替换 为 DV 之 外 ， 还 必须 在 线性 算 符 的 
常数 c 上 乘 以 N 阶 单位 矩阵 IW， 得 到 N 阶 方 阵 工 ， 即 : L=aDY +bDy+cly。 注意 : Matlab 
对 和 矩 阵 与 常数 之 间 的 加 法 是 有 特殊 定义 的 ， 如 果 忘 记 在 c 上 乘 以 Wy 会 导 至 错误， 因为 线性 
算 符 矩 阵 工 与 向 量 w 相乗 Lu=(aD% +bDytcIN)u=aD%? wt+bDwmtcuz(aD? +bDvtc)u。 对 非 线 
性 项 Mu), 替 換 の 0x 为 DY 时，DW 与 向 量 w 之 间 的 乘法 是 矩阵 乘法 ， 在 Matlab 中 用 “*” 
表示 。 而 wi 应 理解 为 向 量 w 中 的 每 个 元 素 的 立方 ， 这 在 Matlab 中 用 “.^3” 表 示 。 类 似 地 ， 
f(x)-(Dwt) 也 应 处 理 为 f(x) 和 问 量 Dw 中 的 每 个 对 应 元 素 的 相 乘 , 在 Matlab 中 用 “.*” 表 示 。 
所 以 此 时 Lu+N(w) 在 Matlab 中 应 写 为 : 


(a*D2+b*D1+e*T)*utu.^3+u.^3.*(D2*u)+f.*(DI*u) 


换 句 话说 ， 只 有 谱 求 导 和 矩阵 の 与 向 量 之 间 的 乘法 是 矩阵 运算 ， 其 余 的 运算 均 是 在 
矩阵 或 问 量 的 元 素 之 间 进 行 的 。 但 也 有 一 个 例外 ， 由 于 线性 算 符 工 中 的 常数 c 在 矩阵 化 时 
乘 了 单位 矩阵 WW， 所 以 实际 上 clw 与 问 量 w 之 间 也 是 矩阵 乘法 ， 这 样 才 能 将 其 与 线性 算 符 
/ 中 的 其他 項 相 加 : L=aD?+bDy +clw。 

藻 方 程 式 (4-26) 再 增加 一 个 维度 ， 每 号 石 边 包含 了 u(x, ヵ 六 的 676x 和 67B” ， 那 么 
求解 步骤 中 的 一 些 细节 就 需要 推广 到 二 维 空间 上 上。 在 x 轴 、y 轴 上 的 计算 区 间 内 分 别 取 等 
间距 的 入 个 位 置 x=(x1, xz ,xm 以 及 y=071, 2 .…,yN)， 于 是 在 x-y 平 面 上 的 计算 区 域内 
就 得 到 了 NV 个 位 置 的 坐标 Geis p10), (rr, 2), Co YM C2, アリ …。 (Go ypN),…, (rw pn)。 相 应 
地 ， 函 数 可 以 被 离散 化 为 Y 阶 方 阵 (第 一 种 形式 ) 或 维 列 向 量 (第 二 种 形式 )， 如 式 
(4-28)、 式 (4-29) 所 示 : 


iL 2 の 
21 22 2N 到 
ZL >xN s (4 28 ) 
UN ANG の 
u =(u 1 1 1 1 1 1 ) (4-29 ) 
N2xl ” \ “11， 21， ，……， N1， 12， 22， 。 ・・*5 N29 ・・・ う NN 


式 (4-28) 中 , 第 7 行 / 列 的 元素 好 对 应 的 坐标 是 Co »)。 列 向 量 (4-29) 的 第 1 到 第 W 
个 元 素 对 应 于 式 (4-28) 的 第 1 列 , 第 N+1 到 第 2 个 元 率 对 应 于 式 (4-28) 的 第 2 列 …… 
依 此 类 推 ， 如 图 4-3 所 示 。 另 外 ， 可 以 通过 Matlab 中 的 reshape 函数 在 二 者 间 进 行 转换 。 


89 


Matlab 微分 方程 高 效 解 法 : 谱 方 法 原理 与 实现 


| 


ニー 


图 4-3 ”函数 的 两 种 离散 形式 及 它们 的 对 应 关系 
針 対 画 数 的 两 种 离散 形式 ，60”"w/6x”" 和 O”w/6y" 的 计算 方法 也 大 为 不 同 。 对 于 第 一 种 形 
式 , 有 : 


Ou > の の 0 (4-30) 
Oy 
O"u (n) I 全 证 
Ox” っ (5 (zw ) ) = (DY ) (4-31) 
对 于 第 二 种 形式 ， 有 : 
0 1 7 
0 (I ® DY ) wm, (4-32) 
O"u n 
ーッ っ (DY OI, | ue (4-33) 


其 中 妨 为 N 阶 单位 和 矩阵,“@” 代 表 元 罗 内 元 积 (Kronecker product)， 筷 是 两 个 任意 大 小 
和 矩阵 间 的 运算 ， 可 用 Matlab 中 的 kron 函数 实现 。 若 kx1 窍 阵 与 mxn 甜 阵 做 克 罗 内 克 积 运 
算 ， 结 果 将 是 km xIn 和 矩阵， 并 可 以 被 分 成 Xx1 块 ， 比 如 : 


anby の の > | ab の っ 2 


稀 le |- aiby 02 | Aby の の > (4-34 ) 


の の っ 2 の 」 か 。 


の 1」 の の > | の うち 」 の っ か 。 


asby の の っ | 9 の 5 ち 」 の っ の > 


为 帮助 读者 理解 , 下 面 给 出 n=2、N=3 時 式 (4-32) 和 式 (4-33) 的 一 个 例子 , 設 の 为 : 


D,, D, D,; 
DD, D, D,, (4-35) 
の D;, D;; 
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トト 
地 


那 久 , の の 为 : 


(7 ® DO Wo = ん の (4-36) 


の (4-37) 


最 后 ， 比 较 函 数 x 在 二 维 平 面 上 的 两 种 离散 形式 〈 式 (4-28) 和 式 (4-29)) 以 及 相应 
的 数值 求 导 过 程 。 从 使 用 的 难 易 度 和 运算 量 来 讲 ， 前 者 是 远 远 优 于 后 者 的 。 因 为 前 者 最 多 
只 出 现 N 阶 方 阵 之 间 的 乘法 运算 ， 而 后 者 出 现 了 NY 阶 方 阵 与 维 向 量 的 乘法 运算 。 但 是 
在 做 某 些 求 导 过 程 的 逆 运 算 时 ， 束 不 得 不 采用 第 二 种 离散 形式 。 例 如 ， 在 x*-7y 二 维 平面 上 
商 数 ww 和 vw 有 如 下 关系 : 


v= AZ (4-38) 
A 为 拉 普 拉 斯 算 符 ， 根 据 式 (4-32) 和 式 〈4-33)， 拉 普 拉 斯 算 符 可 以 表示 为 WM 阶 方 阵 : 


2 2 
A DN OI + OD (4-39) 
x の 
者 は 人 アッ 求 z 只 需 : 
-1 
ua = (DN BI, + 1 DY) wa (4-40) 


类 似 地 ， 还 可 以 用 此 方法 求 诸 如 ad'/8x"+b8"/8y" 等 导数 的 逆 运 算 。 然 而 ， 对 于 
第 一 种 离散 形式 ， 有 = の wwxw+uwxwCD2 ) ， 无 法 直观 、 方 便 地 利用 D8 和 ywxw 
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求 得 UNxNo 


此 外 ， 在 二 维 的 特征 值 问题 中 ， 也 必须 采用 第 二 种 离 敌 形式 才能 求解 。 


4.2 利用 谐 求 导 和 矩阵 求解 基本 含 微 分 方程 《组 ) 


4.2.1 “一 维 线性 谐振 子 的 定 态 可 定 谓 方 程 


一 维 谐振 子 的 特征 值 问题 是 量子 力学 中 一 个 重要 的 基本 问题 ， 分 子 的 振动 、 品 格 的 振 
动 、 原 子 核 表 和 面 的 振动 和 辐射 场 的 振动 等 都 可 以 分 解 为 夯 干 彼此 独立 的 一 维 谐振 动 。 奉 选 
取 目 然 平 衡 位 置 为 坐标 x 的 原点 和 势能 零点 ， 则 一 维 线性 谐振 子 的 势能 可 以 表示 为 
U(x)=Kx /2， 其 中 KK 是 描述 简 谐 作用 力 强 度 的 参数 。 采 用 自然 单位 ， 一 维 线性 谐振 子 的 特 
征 值 问 题 有 如 下 形 陈 : 


2 (4-41) 
UN の 


其 中 , ヵ 妨 濾 函 数 , 4 为 特征 值 ， 且 wz#0。 此 问题 存在 解析 解 ， 特 征 值 1,=2n+1， 其 中 
n=0, 1, 2, ...， 相 应 的 特征 函数 为 : 


We 2 万 (x) (4-42 ) 


7 


其 中 ， 允 (Oo0) 为 埃 尔 米 特 多 项 式 〈Hermite polynomials )。 由 于 特征 函数 随 着 |x| 的 增加 而 
迅速 衰减 ， 所 以 ， 若 计算 区 间 是 够 宽 的 话 ， 就 能 保证 特征 函数 在 边界 处 的 值 总 是 近似 为 0, 
这 样 即使 用 周期 性 边界 条 件 来 处 理 此 特征 值 问 题 也 无 妨 。 或 者 ， 也 可 以 认为 这 里 的 势 场 是 
周期 势 场 。 

将 x 和 ww 离散 化 为 ，x=(x1, 2 .…, xy ，U=(U1, の 。 -…。 gy ， 那 么 式 (4-41) 可 写 为 矩 
降 形 式 : 


DW +diag (ty) [u= A (4-43 ) 
用 Matlab 中 的 eig 函数 可 方便 地 求解 这 种 矩阵 形式 的 特征 值 问题 ,具体 代码 如 下 : 
程序 4-2 


clear all: close all: 
L=20; N=64: 
x=L/N*[-N/2:N/2-1|:; 
% 构 造 谱 求 导 算 阵 
h=2*pi/N: 
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十 


column=[-pl^2/(3*#*h^ 人 2)-1/6 -0.5*(-1).^(1:N-1)./Sin(h*(1:N-1)/2).22 1: 

D2=(2*pi/L)“2*toeplitz(column); 

% 求 特征 值 和 特征 函数 

[VD ぼ eig(-D2+diag(x.^2)): 

eigenvalues=diag(D); 

for n=1:25 
subplot(5,5,n), plot(x,V(:,n),'k','LineWidth',1.5) 
title(num2str(eigenvalues(n))) 


end 


结果 如 图 4-4 所 示 , 前 25 个 特征 值 、 特征 函数 与 解析 解 基本 一 致 。 随 着 特征 值 的 增加 ， 
特征 函数 的 分 布 范 围 也 越 来 越 大 。 如 果 特 征 函数 的 分 布 范围 超出 了 计算 区 间 ， 那 么 周期 性 
边界 条 件 会 导致 错误 ， 所 以 一 定 要 保证 计算 区 间 足 够 大 。 注 意 ， 每 个 特征 值 对 应 的 特征 函 
数 并 不 是 唯一 的 ， 如 果 是 特征 值 为 4。 的 特 征 函数 , 那 久 fu 也 必 是 它 的 特征 函数 ,上 为 
非 零 常数 。 


1 3 5 7 9 
0.5 0.5 0.5 0.5 0.5 
ー0.5 ー0.5 ー0.5 ー0.5 ー0.5 
一 10 0 10 —10 0 10 —10 0 10 -10 0 10 一 10 0 10 
11 13 15 17 19 
0.5 0.5 0.5 0.5 0.5 
ー0.5 -0.5 -0.5 一 0.3 ー0.5 
一 10 0 10 一 10 0 10 一 10 0 10 一 10 0 10 一 10 0 10 
21 23 25 27 29 
0.5 0.5 0.5 0.5 0.5 
ー0.5 ー0.5 一 0.3 ー0.5 ー0.5 
ー10 0 10 ー-10 0 10 ー10 0 10 ー10 0 10 ー10 0 10 
31 33 35 37 39 
0.5 0.5 0.5 0.5 0.5 
ー0.5 ー0.5 ー0.5 一 0.3 ー0.5 
一 10 0 10 -10 0 10 —10 0 10 一 10 0 10 —10 0 10 
41 43 45 47 49 
0.5 0.5 0.5 0.5 0.5 
ー0.5 ー0.5 ー0.5 ー0.5 ー0.5 
ー10 0 10 -10 0 10 -10 0 10 -10 0 10 -10 0 10 


图 4-4 一 维 线性 谐振 子 的 前 25 个 特征 值 和 特征 函数 
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4.2.2 ”二 维 线性 谐振 子 的 定 态 藤 定 谓 方 程 
二 维 线 性 谐振 子 的 特征 值 问 题 有 如 下 形式 : 


2 2 
-可 -部 er (4-44 ) 
4 


其 中 ，x、yy 为 空间 坐标 ，4 为 波 函 数 。 特 征 值 的 解析 解 为 : 
多 (4-45) 


基 中 , ん ん,=2m+1, ん 4 ん,=2n+1, m=0, 1, 2, ...，n=0, 1, 2, ...。 与 4.2.1 小 节 类 似 ， 因 为 特 
征 函 数 随 着 |x| 和 |y| 的 增 大 而 快速 衰减 ， 所 以 在 计算 范围 足够 大 的 前 提 下 可 以 采用 周期 
性 边界 条 件 。 

将 x、y 离散 化 为 : x=(x1, x2, .…, XN) 以 及 y=71, 2 .…, yn) 再 閣 离散 化 为 维 列 


器 量 : 

(ne We Mi MU cop NN uw) (4-46 ) 
那么 ，C6x76e2-67D 2 四 的 矩阵 形式 为 : 

-DY OI, -Ty BDY +diag (1,2 OTy + Ty Ddiag (yp ) (4-47) 


同样 利用 eig 函数 求解 此 矩阵 的 特征 值 和 特征 函数 ， 代 人 码 如 下 : 
程序 4-3 

clear all: close all: 

L=10; N=32; 

x=L/N*[-N/2:N/2-11; y=x; 

% 构 造 谱 求 可 矩阵 

h=2*pi/N; 

column=|-p1^27(3*h^2)-176 —0.5* (1). NCL:N-I)./sin(h* C1:N-1)/2).“21; 
D2=(2*pi/L)“2*toeplitz(column); 

% 求 特征 信和 特征 函数 

I=eye(N); L=kron(D2,I)+kron(L,D2); 

x2=kron(diag(x.^2).1): y2 テ kron(1,diag(y.^2)): 

[VD ビ eig(-LTx2+y2): elgenvalues= デ diag(D): 

% 田 图 

[pyjpx meshgrid(0.75:-0.25:0.0:0.25:0.75): 
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figure(1 ) 


for n=1:16 


subplot(position',|px(n) 寺 0.04 py(n)+0.04 0.17 0.17]) 
mesh(x,y,reshape( V(:,n),N,N)) 


axis([-4 4 -44-0.1 0.1]), title(num2str(e1genvalues(n))) 
end 


figure(2) 
for n=1:16 


subplot('position',[px(n)+0.04 py(n)+0.04 0.17 0.17]) 
contour(x,y,reshape(V(:,n),N,N),[-0.03 0.03 ]) 


axis([-4 4 -44]), axis square, title(num2str(elgenvalues(n))) 
end 


结果 如 图 4-5 (三 维 图 )、 图 4-6“〈 等 高 线 图 ) 所 示 : 
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图 4-5 二 


= 


维 线性 谐振 子 的 前 16 个 特征 值 和 特征 函数 
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图 4-6 二 维 线性 谐振 子 的 前 16 个 特征 值 和 特征 函数 (等 高 线 图 ) 


4.2.3 一 维 波 动 方 程 


对 于 一 根 两 闹 回 定 、 细 长 柔软 的 弦 线 ， 石 其 平衡 位 置 为 x 轴 ，u(x, 四 表示 弦 上 坐标 为 x 
的 点 在 時 刻 : 垂 衣 十 x 方 向 的 位 移 , 則 弦 的 目 由 振 効 方 程 妨 : 
Of” Ox” 
实际 上 ， 杆 的 纵 振 动 方程 、 理 想 传输 线 的 电报 方程 也 是 此 方程 。 对 于 无 界 (oo<x<oo) 
怠 的 目 由 振动 ， 如 果 计 算 区 间 足 够 大 ， 那 么 孢 可 以 采用 周期 性 边界 条 件 。 这 里 取 2=1, 初 
始 条 件 为 : 


(4-48 ) 


ul =2sech(x +10) -2sech(x-10)。 党 | =0 (4-49) 

t=0 
在 数学 物理 方法 中 ， 给 定 初 始 条 件 的 无 界 弦 目 由 振动 方程 存在 解析 解 ， 称 为 达 暴 
贝尔 公式 。 对 于 初始 条 件 (4-49), 弱 各 处 的 初始 速度 为 0, 弦 的 初 始 波形 包 人 入 了 x= キ 10 
处 的 2 个 sech 函数 。 根 据 达 表 贝 尔 公 式 ， 这 2 个 sech 函数 将 分 别 分 裂 成 两 半 ， 以 速 
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度 a 沿 看 x 轴 的 正方 向 和 人 负 方 同 传 播 ， 即 正行 波 和 反 行 渡 , 这些 正 行 流 和 反 行 波 的 县 加 
就 给 出 了 弦 的 总 位 移 。 下 面 给 出 数值 解法 的 代码 ， 并 与 达 明 贝尔 公 坏 的 预测 进行 比较 。 


程序 4-4 


主 程序 代码 如 下 : 
clear all: close all: 
L=80; N=160; 
x=L/N*[-N/2:N/2-11:; 
% 构 造 谱 求 可 矩阵 
h=2*pi/N; 
column=[-pi“2/(3*h“2)-1/6 —0.5* (1). NCL:N-I)./sin(h* (Cl:N-1)/2).“21; 
D2=(2*pi/L)^“2*toeplitz(column); 
% 初 始 条件 
u デ 2*sech(x 十 10)-2*sech(x-10): 
v=Zeros( 1,N): uv=[u vi; 
% 数 值 求解 
al : t=0:0.5:20; 
[tuvsol ビ ode45('wavelD'tuv,,N,D2,a): 
% 画 関 
p デ [1 11 21 411; 
for n=1:4 
subplot(5,2.n) 
plot(x,uvsol(p(n),1:N),K,Line Width',1.5), xlabel x, ylabel u 
title(['t="' num2str(t(p(n)))]), axis([-L/2 L/2 -2 2]) 
end 
subplot(5,2,3:10) 
waterfall(x,tuvsol(:,1:N)), view(10,45) 
xlabel x, ylabel t zlabel u, axis(|-L/2 L/2 0 t(end) -2 21]) 


wavelD.m 文件 代码 如 下 : 


function duv=wavelD(tLuv,dummy,N,D2.a) 
u=uv(1:N); v=uv(N+[1:N]); 
duv=|v; a“2*D2*ul; 
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程序 输出 结果 如 图 4-7 所 示 ， 上 图 是 弦 在 t=0, 5, 10, 20 时 的 位 移 w， 下 图 是 位 移 w 随 
位 置 x、 时 间 t 的 变化 情况 。 初 始 条 件 中 的 sech 函数 在 {=0 之 后 分 裂 为 正 行 波 和 反 行 波 ， 
正行 濾 和 反 行 波 的 振幅 入 分 像 前 sech 函数 振幅 的 一 半 , 并 分 别 以 速度 a=1 问 两 边 传播 . 在 
1=10 时 ， 其 中 的 一 对 正 行 波 和 肥 行 波 奢 加 为 0， 所 以 它们 和 暂时 消失 了 。 总 之 ， 数 值 计 算 的 
结果 与 达 表 贝尔 公式 的 预测 完全 一 致 。 


RY 
> VV 


图 4-7 一 维 波 动 方 程 数 值 解 


4.2.4 ”二 维 波 动 方程 
将 式 (4-48) 推广 到 二 维 情 况 得 到 : 


2 2 2 
a (4-50) 
ル 


它 是 薄膜 的 波动 方程 。 其 中 ，w(x, 0 为 上 时 刻 位 置 Cx, 処 薄 膜 的 位 移 。 
取 a=1， 初 始 条 件 为 : 


-20|(z-047+(04 | 2 (et が TO-04 | Ou 


0 マ り の =0 (4-51) 


ul = 
t=0 


在 计算 区 域内 将 wu 离散 化 为 式 〈4-28) 的 形式 ， 那 么 根据 式 (4-30) 和 式 (4-31), 
(0%/6x*+0”/60y”)u 可 表 为 : 
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式 〈4-50) 数值 求解 过 程 与 4.2.3 小 节 类 似 ， 代 码 如 下 : 
程序 4-5 
主 程序 代码 如 下 : 
clear all: close all: 
L=4; IN=60: 
x=L/N*[-N/2:N/2-11; y=x; 
[X,Y |]=meshgrid(x,y); 
% 构 造 谱 求 可 矩阵 
h=2*pi/N: 
column=[-pi“2/(3*h“2 )-1/6 -0.5*(-1).^(1:N-1)./Sin(h*(1:N-1)/2).^2 1: 
D2=(2*pi/L)“2*toeplitz(column); 
% 初 始 条件 
u=exp(-20*((X-0.4).^2+(Y+0.4).^2) )-exp(-20*((X+0.4).^2+(Y-0.4).^2)); 
v=Zeros(N); uv=[u(:) v(:)]; 
% 数 值 求解 
a=1; t=[0 0.23 0.5 1]; 
[t,uvsol]=0ode45('wave2D",t,uv,[ |,N,D2,a); 
% 画 関 
for n=1:4 
subplot(2,2.n) 
mesh(x,y,reshape(uvsol(n,1:N^2),N,N)) 
title(['t="' num2str(t(n))|), xlabel x, ylabel y zlabel u 
axis([-L/2 L/2 -L/2 L/2 -1 1]) 


end 


wave2D.m 文件 代 偶 如 下 : 

function duv=wave2D(tLuv,dummy,N,D2.a) 
u=reshape(uV( 1:N^2),N,N): vuv(N^2 土 | 1:N^2 1]): 
duv=[v; reshape(a^2*D2 ま ua^2*u*D2JN^2.1) | 


数值 计算 结 末 如 网 4-8 所 示 ， 注 膜 上 的 波动 未 渐 癌 四 周 传 播 。 


谱 求 寻 算 阵 


(4-52) 
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图 4-8 二 维 流动 方程 的 数值 计算 结 


4.3 利用 道 求 号 邊 星 求 艇 夏 奈 偽 微 分 方 程 ( 狙 ) 


4.3.1 Ginzburg-Landau 方程 


Ginzburg-Landau 方程 在 超 导 理 论 、 流 体力 学 以 及 光学 中 有 痢 重 要 的 应 用 。 用 于 输出 超 
短 脉冲 的 锁 模 吕 激光 器 就 是 由 Ginzburg-Landau 方程 描述 的 (在 光学 中 也 称 为 主 方程 ， 即 
master equation)， 这 里 讨论 如 下 形式 的 Ginzburg-Landau 方程 : 


Ou ip i OU pp LI の 上 
ラン 2 いあ +igor) +iy g+ っ | 80 rh IR 7/ (4-53 ) 
其 中 , zz、7 和 z 分 别 代 表 光 的 复 振 幅 、 时 间 和 光 在 激光 器 内 传播 的 距离 , i 为 虚数 单位 。 
其 他 参数 取 值 为 p=-1，go=1，7Tt=0.2，y=1，Qo=1.2，Po=1。 与 此 前 所 讨论 的 方程 不 同 ， 式 
(4-53) 属于 复数 偏 微分 方程 ， 但 在 利用 Matlab 求解 过 程 中 ， 它 的 处 理 与 实数 偏 微 分 方程 
并 无 太 大 差异 ， 代 但 如 下 : 
程序 4-6 


主 程序 代码 如 下 : 


clear all: close all: 


” 锁 模 是 光学 里 一 种 用 于 产生 极 短 时 间 激 光 脉 冲 的 技术 。 
100 


{=L/N*[-N/2:N/2-1]; 
% 构 造 谱 求 导 和 矩阵 


column=[-pl^2/(3*h^2)-1/6 -0.5*(-1).^(1:N-1)./Sin(h*(1:N-1)/2).^2 1: 
D2=(2*pi/L)^“2*toeplitz(column); 

% 初 始 条 件 

u=sech(t/2)*0.3+0.5*rand(L,N); 

% 数 人 求解 

beta2=-1; gamma=1; g0=1; tau=0.2; 

alpha0=1.2; PO=1; z=0:30; 
[z,usollj=ode43(master,z,u,[],D2,beta2,gamma,g0,taualjpha0,P0); 

% 画 图 

waterfall(t,z,abs(usol)), xlabel t, ylabel z, zlabel lul 


masterm 文件 代码 如 下 : 

function du=master(Z,u,dummy,D2,beta2.gamma,g0,tau,alpha0,PO) 

du=-1/2*(beta2+1*g0*tau)* D2*ut1*gamma*abs(u).^2.*ut... 
1/2*(g0-alpha0./(1+abs(u).^2/P0)).*u; 


程序 输出 结 末 如 图 4-9 所 示 。 尽 管 光 的 初始 条 件 包 含 了 很 强 的 噪声 ， 但 由 于 多 种 物理 
效应 的 共同 作用 ， 光 在 锁 模 激光 器 内 的 传播 过 程 当 中 形成 了 稳定 的 脉冲 ， 这 与 锁 模 激光 需 
的 实际 情况 是 一 致 的 ， 称 作 目 局 动 。 


图 4-9 ” 锁 模 激光 右 的 目 局 动 过 程 
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4.3.2 ”耦合 非 线性 薛 定 库 方 程 组 


对 于 某 些 基于 帮 合 效应 和 非 线性 效应 的 锁 模 激光 器 《如 : 用 波导 阵列 做 锁 模 器 件 的 激 
光 器 )， 理 论 模型 就 需要 用 艳 合 非 线 性 蔡 定 请 方程 组 〈coupled nonlinear Schodinger 
equations ) 来 描述 : 

Ou . 
っ ーー 1 っ 46 - ぅ (ん +igr)— テ +iyla 4 +35(g— oa) 


Ou, 


ーー=i( た ん + kds )— ーー (4-54) 


Oz 2 
a -ip -a 

大 中 wl、 志和 ww 为 3 个 波导 内 的 光复 振幅 ，t、z 为 时 间 和 光 在 波 叶 内 传播 的 中 
高 , i 为 虚数 单位 。 其 他 参数 取 值 : 2=0.3，k23=0.3,， ps=1,，g=0.3, t=2, y=1, a1=0.01, 
02=0.1，Q03=1。 由 于 式 (4-54) 中 的 3 个 方程 是 帮 合 的 ， 所 以 需要 同时 对 它们 求解 ， 
代码 如 下 : 


程序 4-7 


主 程序 代码 如 下 : 
clear all: close all: 
L=100; N=100; 
t=L/N*[-N/2:N/2-11; 
% 构 造 谱 求 导 算 阵 
h=2*pi/N; 
column=|-p1^27(3*h^2)-176 -0.?*(-1).^(1:N-1)./Sin(h*(1:N-1)/2).22 1: 
D2=(2*pi/L)“2*toeplitz(column); 
% 初 始 条 件 
ul=0.3*sech(t/4)+0.6*rand( 1,N); 
u2 三 Zeros( 1,N): u3=zeros( 1,N); 
u=[ul u2 u3 |; 
% 数 人 求解 
k12=0.3: k23=k12; beta2=1; gamma=1; g=0.3; 
tau=2; al=0.01:; a2=0.1:; a3=1; z=0:4:200; 
[ZzZ,usol]=o0de45('CNLSE',z,u,|[],N,D2,k12,k23,beta2,gamma,g,tau,al ,a2,a3); 
% 男 图 
for n=1:3 
subplot(2,2,n) 
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waterfall(t,z,abs(usol(:,(n-1)*N 十 | 1:N]))) 
xlabel t, ylabel z, zlabel([ |u ' num2str(n) "|']) 


end 


CNLSE.m 文件 代码 如 下 : 
function du=CNLSE(Z,u,dummy,N,D2.k12,k23,beta2.gamma,g,tau,a1,a2,a3 ) 
ul=u(1:N): u2=u(N+[L:N]);u3=u(2*#*N+[L:N]); 
du=[1*k12*u2-1/2*(beta2+1*g*tau)*D2*ul+... 

1*gamma*abs(ul ).“2.*ul+1/2*(g-al).*ul; 

1*(k12*ul+k23*u3 )-a2/2*u2; 

1*k23*u2-a3/2*u31; 


类 似 于 4.3.1 小 节 的 结束 ， 这 种 基于 疲 导 阵列 的 锁 模 激光 霹 同 样 可 以 实现 目 司 动 锁 模 ， 
如 图 4-10 所 示 , 3 个 波导 内 的 光 均 从 噪声 初始 条 件 开始 逐渐 形成 了 稳定 的 脉冲 。 


[uil 


图 4-10 耦合 非 线性 攻 定 请 方程 数值 计算 结 


4.3.3 二 维 Schnakenbersg 模型 


1952 年 ， 被 称 为 计算 机 理论 之 父 的 英国 科学 家 图 灵 提 出 了 一 个 新 颖 的 想法 :一些 动物 
(如 : 老虎 、 金 钱 鹏 ) 身上 之 所 以 会 长 着 有 规律 的 条 纹 斑点 图 案 〈 斑 图 )， 是 因为 在 细胞 中 
存在 一 种 化 学 物质 , 由 于 反应 -扩散 系统 的 特性 而 自 组 织 形 成 了 斑 图 。 这 种 想法 逐渐 被 后 来 
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的 实验 和 理论 所 证 实 。 本 小 和 节 以 反应 -扩散 系统 中 的 Schnakenberg 模型 为 例 介绍 计算 斑 图 
的 方法 ， 它 的 形式 如 下 : 


ae 


の (の の 2 
の の ee (4-55) 
3 DA v+y( ー 77 yv) 


其 中 , w 和 vw 可 看 做 两 种 化 学 反应 物质 的 浓度 ，x、y 为 空间 坐标 ,1 为 时 间 ， 参 数 取 值 
如 下 : a=0.1、4b=0.8、d=26、y=100。 由 于 动物 表皮 为 团 合 曲面 ， 因 此 使 用 周期 性 边界 条 
件 是 合理 的 。 

若 把 w 离散 化 为 方 阵 wwxw， 则 方程 中 的 (0%YOx*+60%6y”)u 可 表示 为 (の の ) の の ww 
(9 の 22 サダ / の の y 同 理 。 等 号 左边 的 0/6t 交 给 ode23 函数 计算 即 可 ， 具 体 代码 如 下 : 


程序 4-8 


主 程序 代码 如 下 : 
clear all: close all: 
L=4; N=60; 
% 构 造 谱 求 导 算 阵 
h=2*pi/N: 
column=[-p1^27(3*h^2)-176 -0.?*(-1).^(1:N-1)./Sin(h*(1:N-1)/2).22 1: 
D2=(2*pi/L)^“2*toeplitz(column); 
% 初 始 条件 
u=rand(N)*0.5+0.5; v=0.5*ones(N); 
uv=[u(:); v(:)]; 
% 数 值 求解 
gamma=100; a=0.1; b=0.8; d=26; 
t=0:0.1:0.3; 
[tuvsoll=ode23('schnakenberg',tuuv,[ |,D2,N,gamma,a,b,d); 
% 画 图 
for n=1:4 
subplot(2,2.n) 
gca デ Dcolor(reshape(uvsol(n,1:N^2),N,N)): axls off 
set( gca,LineStyle',none), shading interp 
title(| 人 ビ " num2str(t(n))]), axis Square 


end 


schnakenberg.m 文件 代码 如 下 : 
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function duv=schnakenberg(t,uv,dummy, D2,N,gamma,a,b,d) 

u=uv(l:N^“2); v=uv(N“2+l:end); 

u=reshape(u,N,N); v=reshape(v,N,N); 

duv=[reshape((D2*utu*D2')+gamma*(a-utu.^2.*v),N 人 2,1); 
reshape(d*(D2*v+v*D2')+gamma*(b-—u.^2.*v),N®’2,1)]; 


程序 输出 的 结果 如 图 4-11 所 示 ，1=0 时 的 初始 条 件 设置 为 噪声 ， 随 后 图 形 和 逐渐 开始 目 
组 织 。 在 だ 0.3 时 ， 斑 图 已 经 初 具 锥 形 ， 十 分 类 似 动物 反 毛 上 的 图 案 。 


t=0 t=0.1 


图 4-11 计算 二 维 Schnakenberg 模型 得 到 的 斑 図 
4.3.4 ”一 维 平流 -扩散 方程 


二 维 平流 -扩散 方程 (advection-diffusion equation) 描述 了 大 气 的 准 二 维 运 动 ， 它 的 形 
式 如 下 : 


(4-56) 


其 中 ，yw、w 分 别 为 流 函 数 〈stream function) 和 涡 量 《vorticity)，x、y 为 空间 坐标 ，Lt 
为 时 间 ，Y 为 一 常数 。 式 (4-56) 中 的 第 一 式 同 时 包含 了 平流 部 分 OW/Oy 6aw/Bx- 
Ow/6x*0w/60y， 以 及 扩散 部 分 一 一 v(0%/6x*+0%/0y)wq。 将 w 和 ww 离散 化 为 方 阵 ww 和 oxxx 
之 后 ， 等 号 右边 可 写 为 vf[wwxw(D?)+D? oy の yyy の yxw( の 。) -WnxMDv) の 。 の yy 等 
号 左边 的 0/601 使用 ode45 函数 计算 。 
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流 函 数 y 可 看 作 涡 量 o 的 一 个 参量 ， 计 算 涡 量 @ 的 过 程 中 需要 先 用 式 (4-56) 中 的 
第 二 式 求解 流 函 数 w， 这 是 一 个 对 o 的 积分 运算 ， 由 于 产生 了 积分 常数 c， 所 以 yw 并 不 是 
唯一 的 ， 即 : =woTc。 但 起 注意 色 式 (4-56) 中 的 y 都 是 以 导数 的 形式 存在 ， 所 以 积分 常 
数 ce 并 不 会 影响 o 的 计算 结 末 ， 可 不 做 考虑 。 计 算 流 函数 y 有 两 种 方法 : 

(1) 直接 对 676r+6ve) 的 矩阵 形式 求 逆 得 到 积分 矩阵 ， 对 w 进行 积分 : 


可 


Wa = (DY OI + I ODN oe 


(4-57) 


N’*xl 


(2) 利用 第 3 章 的 方法 ， 对 方程 做 二 维 传 里 时 变换 ， 将 积分 运算 转化 为 在 频 域 上 的 除 
返 算 (注意 用 技巧 避 免 分 母 訪 0): 


7 (4-58) 


因为 方法 一 中 存在 对 NV 阶 方 阵 的 求 道 运算 ， 运 算 量 较 大 ， 所 以 这 里 采用 方法 二 。 
使 用 周期 性 边界 条 件 ， 初 始 条 件 w(x, y, 0)=sech(x*+y“/20), 取 v=0.001， 数 值 计 算 二 维 
平流 - 扩 敌 方程 的 代码 如 下 : 


程序 4-9 


主 程序 代码 如 下 : 
clear all: close all: 
L=20; N=128; 
x=L/N*[-N/2:N/2-11; y=x; 
kx=(2*pi/L)*[0:N/2-1 -N/2:-1 1: 
kx(l)=le-6; ky=kx; 
[X,Y |]=meshgrid(x,y); 
[kX,kY =meshgrid(kx,ky): 
K2=kX.^2+kY.’2; 
% 构 造 谱 求 导 算 阵 
h=2*pi/N: column=[0 0.5*(-1).^(1:N-1).*cot((1:N-1)*h/2)]'; 
D=(2*pi/L)*toeplitz(column,column([ 1 N:-1:2])); 
column=[-pi“2/(3*h“2 )-1/6 —0.5* (1). NL:N-1)./sin(h* (C1:N-1)/2).“21; 
D2=(2*pi/L)“2*toeplitz(column); 
% 初 始 条件 
w=sech(X.^2+Y.^2/20); 
% 数 值 求解 
v=0.001; t=0:10:30; 
[twsollj=ode43(advection diffusion,',t,w(:),[],N.,D,D2,K2,v); 
% 画 
for n=1:4 
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subplot(2,2.n) 

gca デ デ Dcolor(reshape(wsol(n,:),N,N)): axls off 
set( gca,LineStyle',none), shading interp 
title(['t=' num2str(t(n))]), axis Square 


end 


advection diffusion.m 文件 代码 如 下 : 

function dw=advection diffusion(t,w,dummy,N,D,D2,K2,v) 
w=reshape(w,N,N); wt=tft2(w); 

psi=ifft2(wt./(-K2)); 
dw=reshape(v*(D2*w+w*D2')-(ps1*D').*(D*w)+(D*ps1).*(w*D'),N 人 2,1); 


程序 输出 结果 如 图 4-12 所 示 , 随 看 时 间 1 的 推移 , 沉 量 @ 的 分 布 出 现 了 逆 时 针 的 旋转 。 
如 果 将 平流 部 分 变 写 ， 旋 转 方 同 将 变 为 顺 时 针 ， 读 者 可 目 行 尝试 。 


t=0 


t=20 


图 4-12 二 维 平流 -扩散 方程 计算 结果 


t=10 
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下 篇 “第 一 类 、 第 二 类 和 第 三 类 索 界 
条 件 下 的 谱 方 法 


第 S 章 切 比 雪夫 谱 方 法 


第 3、4 革 在 进行 数值 求 导 时 用 到 了 离 效 传 里 叶 变 换 或 周期 插值 函数 ， 导 人 臻 这些 方 法 者 


暗含 看 周期 性 边界 条 件 ， 所 以 在 处 理 和 常见 偏 微分 问题 时 有 一 定 的 局 限 。 针 对 这 一 浆 端 ， 本 
章 介 绍 适 用 于 第 一 、 二 、 三 类 边界 条 件 的 切 比 雪夫 谐 方法 (Chebyshev spectral method)。 


简单 来 讨 ， 前 面 章节 把 数学 问题 放 在 有 界 (bounded)、 周 期 的 〈periodic) 区 间 上 来 处 理 ， 
而 本 革 则 是 在 有 界 、 非 周期 的 (nonperiodic〉 区 则 内 解决 数学 问题 。 


$.1 切 比 雪夫 求 导 和 窍 阵 的 导出 


S.1.1 吉 布 斯 现象 和 龙 格 现象 


首先 ， 比 较 以 下 3 种 对 有 限 区 则 内 非 周 期 函数 插值 的 方法 : 

(1) 用 第 4 曹 的 方法 在 周期 性 边界 条 件 下 对 函数 进行 插值 。 

(2) 在 区 间 内 等 间距 的 点 上 对 函数 进行 代数 多 项 式 插值 。 

(3) 在 区 间 内 的 切 比 雪夫 点 (Chebyshev points) 上 对 函数 进行 代数 多 项 式 插 值 。 

方法 1 采用 了 周期 性 边界 条 件 ， 如 果 该 函数 在 计算 区 间 的 边界 附近 迅速 肥 减 到 0 或 趋 
于 肤 一 特定 值 ， 那 么 驶 可 以 在 周期 性 边界 条 件 下 对 其 精确 插值 “前面 章节 有 这 样 的 实例 )。 
但 一 般 来 讲 ， 方 法 1 相当 于 将 该 函数 强制 转化 为 在 边界 处 间断 、 周 期 为 工 的 周期 函数 (7 
为 区 间 宽 上 度 )， 且 认为 其 插值 函数 的 形式 是 周期 sinc 函数 的 线性 登 加 。 如 此 得 到 的 插值 函 
数 会 在 间断 点 附近 产生 震荡 ， 市 来 误 关 。 奋 增加 插值 所 使 用 的 离散 点 个 数 W， 震 沪 将 癌 间 
靳 点 处 靠近 ， 且 震荡 幅度 趋 于 一 个 单数 ， 约 等 于 间断 点 处 路 变 值 的 9%， 这 种 现象 称 为 吉 
布 斯 现象 (Gibbs phenomenon ) 。 

例如 : 对 定义 在 [了 上 的 ?=e 困 数 进行 扩展 ， 得 到 在 边 弄 处 辣 断 、 周 期 为 2z 的 周期 
为 数 ， 此 周期 函数 的 插值 机 数 为 : 
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N 
p(x)= 2 ly Sw テー ァ ) (5-1) 
j=1 


其 中 , xj 为 区 间 [-z, 如 上 间隔 2rNV 的 入 个 点 ( 即 : -xn, -+27/N, r+4r/NV, ..., TX-2N/N)， 
yi 为 训 处 的 水 数值 ，Sw 为 周期 sinc 函数 ，N 取 64。 如 图 5-1 所 示 ， 搬 值 函 数 p(x) 在 间断 点 
处 出 现 了 振荡 ， 极 大 地 影响 了 插值 精确 上 度 。 实 现 上 述 过 程 的 代 人 码 如 下 : 


程序 S-1 


clear all: close all: 
L=2*pi; N=64; h=2*pIN 
x=L/N*[-N/2:N/2-11]; y=exp(X); 
subplot(2,1,1 ) 
plot(x—L,y,'k',x,y,'k',x+L,y,'k',LineWidth',1.5) 
axis([-10 10 -3 251]), xlabel x, ylabel y 
subplot(2,1,2) 
x2=-3/2*L:0.01:3/2*L; interpolant=0; 
for n デ =] :length(x) 

interpolant=interpolant+ .… 

y(n)*Sin(p1*(x2-x(n))/)./((2*prh)*tan((x2-x(n))/2)): 

end 
plot(x2,interpolant, に LineWidth',1.5) 
axis([-10 10 -3 251]), xlabel x, ylabel p(x) 


一 9 
一 10 一 8 ー6 一 4 ー2 0 2 4 6 8 10 


图 5-1 上 图 : 由 [-z, ij 上 的 yーe" 函数 扩展 得 到 的 在 边界 处 间断 、 周 期 为 2r 的 周期 函数 ; 
下 图 : 插值 函数 出 现 了 襄 布 斯 现象 
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方法 2 是 一 种 比较 容易 想到 的 方法 : 在 宽 为 了 的 区 间 内 均匀 地 选取 WT1 个 位 置 〈 即 : 
-7/2. ~L/2+LIN, -7/2+27/W。 ..., L/2-2L/N, L/2-L/N, ZL2) ,用 N 次 代数 多 项 式 在 这 些 位 置 对 函 
数 进行 插值 ， 插 值 函 数 的 形式 为 : 


p(r) = の の キキ の (5-2) 


此 方法 没有 使 用 周期 性 边界 条 件 ， 避 人 免 了 吉 布 斯 现象 的 出 现 。 但 是 ，N 次 代数 多項式 
必然 存在 W-1 个 极 值 ， 它 将 导致 插值 函数 PCO 在 区 间 的 边界 处 出 现 霸 沪 ， 并 随 腹 的 增 大 
而 变 得 更 加 严重 ， 这 被 称 为 龙 格 现象 (Runge's phenomenon)。 由 于 震荡 带 来 误 兰 ， 所 以 方 
法 2 也 是 行 不 通 的 ， 后 面 会 用 实例 说 明 。 

方法 3 在 区 间 内 选取 了 不 均匀 的 N+1 个 位 置 一 一 切 比 雪夫 点 ， 在 区 间 [-1, 1] 内 的 切 比 
雪夫 点 的 位 置 为 : 


x, =Cos( jr/N), /=0.1.…, (5-3) 


可 以 把 这 些 切 比 雪夫 点 理解 为 上 半 个 单位 圆 上 等 间距 的 点 在 横 轴 的 投影 , N=8 和 N=16 
的 情况 如 图 5-2 所 示 。 注 总 切 比 雪夫 点 是 从 右 癌 左 排序 的 。 


N=8 


ーー 


一 | 0 


图 $-2 切 比 雪夫 点 是 上 半 个 单位 加 上 等 间距 的 点 在 横 轴 的 投影 。 左 图 : N=8， 右 图 : N=16 


下 面 这 个 例子 使 用 方法 2 和 方法 3 对 函数 y=1/(1+25x ) 进 行 代数 多 项 式 插值 ， 并 比较 
本 插值 函数 ， 代 但 如 下 : 


程序 5-2 


clear all: close all: 
L=2: 
for m=1:2 
N=16*m; 
for n=1:2 
1f n== 
x=L/N*[-N/2:N/21; 
else 
x=L/2*cos(pi*[0:N]/N); 
end 
yー1.7( 1+25*x.^2): x2=-L/2:0.01:L/2; 
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y2=polyval(polyfit(x,yJN),x2): 

error=max(abs(y2-1./(1+25*x2.^2))); 

subplot(2,2,n+2*(m-1)) 

plot(x2,y2,'k',x,y,'.r', MarkerSize',l5S,Line Width',1.5) 

axis([-1.1 1.1 -0.1 1.1]), xlabel x, ylabel y 

title(['N="' num2str(N) , Error {max}=' num2str(error)|) 
end 


end 


程序 输出 结果 如 图 5-3 所 示 ， 在 均匀 点 上 对 函数 进行 代数 多 项 了 式 插值 会 导致 在 区 间 边 
界 附 近 出 现 很 大 误 兰 , 而 在 切 比 雪夫 氮 上 对 函数 进行 代数 多 项 却 搬 信 则 几乎 没有 这 个 问题 。 
随 着 NN 的 增 大 ， 前 者 的 误差 会 越 来 越 大 ， 而 后 者 的 误差 约 正 比 于 2 。 


N=16, Errormax=14.3213 N=16, Errormax=0.036585 
] ] 
0.8 0.8 
0.6 0.6 
> > 
0.4 0.4 
0.2 0.2 
0 0 
一 ] 一 0.9 0 0.5 ] 一 ] ー0.3 0 0.5 ] 
x Xx 
N=32, Errormax=4777.9942 N=32, Errormax=0.0016145 
] ] 
0.8 0.8 
0.6 0.6 
> > 
0.4 0.4 
0.2 0.2 
0 0 
一 ] 一 0.9 0 0.5 ] 一 ] ー0.3 0 0.5 ] 
Xx Xx 


图 5-3 根 据 高 英 数 据 ( 点 ) 得 到 插值 函数 (曲线 )。 左 边 两 图 : 使 用 均匀 点 插值 
右边 两 图 : 使 用 切 比 雪夫 点 插值 


通 辻 上 面 的 分 析 可 知 , 由 十 方 法 3 没有 使 用 周期 性 边界 条 件 ， 不 存在 间断 操 ， 从 而 杜 
绝 了 吉 布 斯 现象 ， 同 时 又 通过 切 比 雪夫 点 划分 区 间 ， 训 免 了 龙 格 现象 ， 是 一 种 针对 有 限 区 
间 内 非 周 期 函数 的 理想 插值 方法 。 

实际 上 ， 为 了 消除 龙 格 现象 ， 有 很 多 非 均匀 划分 区 间 的 方法 ， 使 用 切 比 雪夫 点 划分 的 
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方法 只 是 其 中 之 一 。 这 些 方法 都 符合 以 下 条 件 : 当 No 时， 点 的 密度 分 布 满足 


0 (5-4) 


LV1- x^ 


证 明 从 略 。 
S$.1.2” 切 比 雪 夫 求 导 算 阵 


根据 5.1.1 小 市 , 对 有 限 区 间 内 的 非 周期 函数 进行 数值 求 导 有 的 最 佳 方法 是 这 样 的 : 首先 
在 计算 区 间 内 确定 N+1 个 切 比 雪夫 点 xo, x1,.…, Xw， 在 这 些 点 上 对 函数 进行 代数 多 项 式 插 
值 ， 得 到 最 局 次 颖 小 于 或 等 于 M 的 插值 疯 数 p(x)， 然 后 求 插值 函数 在 切 比 雪夫 点 处 的 导数 
p(x0), p(X1), .…, p(xN)。 由 于 上 述 过 程 是 线性 的 ， 可 以 写成 矩阵 形式 ， 所 以 本 小 市 的 目标 就 
是 忌 结 其 中 的 规律 并 构造 切 比 雪夫 求 叶 矩阵， 将 求 守 运 算 转 化 为 滤 阵 运算 。 

选取 计算 区 间 为 [-1 1], 以 便 讨论 ,坐标 被 离 天 化 为 r=cos(Gzx/N), 其 中 j=0, 1,...,N， 
用 x 表示 N+1 维 向 量 (xo, xl .…, XN) 。 与 第 4 章 不 同 ， 这 里 的 入 是 任意 正 整数 而 不 仅 是 
正 偶数 , 区 同 内 的 高 散 点数 力 N+1 个 而 不 是 个 ,坐标 xo, xl .…,xw 是 由 大 到 小 而 不 是 
由 小 到 大 ,请 注意 区 分 ,用 ww 代表 这 些 位 置 上 的 函数 值 组 成 的 N+1 维 向 量 (wo, wi, .…., Uw) ， 
P(X?) 代表 它 的 插 仁 了 商 数 。 定 义 Dy 为 (N+1)x(N+1) 切 比 雪 夫 求 导 答 阵 ， 并 使 得 下 式 成 立 : 


p'(x)= Dvu (5-5) 


先 来 看 N=1 和 N=2 的 情况 ， 然 后 推广 到 一 般 情况 。N=1 时 ， 只 有 2 个 插值 点 xo=1 和 
x1=-1， 以 及 相应 的 2 个 函数 值 wo 和 wi1， 则 插值 函数 为 : 


p(x)=3(1+x)u + ($-6) 
对 其 求 寻 ， 人 得 
| ] 1 
p ば) ニテ %o -3 SO 


为 了 满足 式 〈5-5$)， 构 造 2x2 切 比 雪夫 求 导 和 矩阵 Di 为 : 


の = ($-8) 


1 
2 

N=2 时 , 有 3 个 插值 点 xo=! 、 x1=0 利 X2 一 一 ] ， 以 及 相应 的 3 个 函数 值 70 ヽ Ul 和 772 ぅ 川 
插值 函数 为 : 


p(x)=5x(l+ x (3)(1 3 + テ r(r- (5-9) 
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P(x) =(x+ -2 + (rj ($-10 ) 


代入 xo=1、x:=0 和 =ー1 了 驶 可 以 得 到 该 位 置 的 导数 值 。 根 据 式 《5-5$)，3x3 切 比 雪夫 
求 导 炬 阵 の 为 : 


3 1 
2 ^ 5 
i = 
の =| > 0 - ぅ (5-11) 
1 3 
2 


若 继 续 如 此 计算 更 高 阶 的 Dyw, 将 会 找到 其 中 的 规律 。 下 面 略 过 这 个 过 程 ， 直 接 给 出 对 
于 任意 的 切 比 雪夫 求 导 抢 阵 Dy 中 每 个 元 素 的 表达 式 : 


20W +1 2W^+1 
( の,)。。 = に 5 (Diy) ニー ンー 5 
(Dy), =— ee (5-12) 
N 万 2(1-) J う ・・・ う 9 


了 7 
其 中 (Dw); 代 表 切 比 雪 夫 求 导 和 矩阵 の 中 第 1 行 第 片 1 列 的 元素 。 且 : 
c 人 PE (5-13 ) 
l, i=1,...,N—l 


下 式 直 观 地 给 出 了 切 比 雪夫 求 导 矩阵 Dw 的 结构 : 


($-14 ) 


由 于 后 面 的 程序 将 反复 用 到 切 比 雪夫 求 导 窃 阵 Dy 和 相应 的 切 比 雪夫 点 ， 所 以 下 面 给 
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出 函数 cheb 的 定义 文件 cheb.m， 只 需 输 入 MN 的 值 就 能 返回 Dw 和 相应 的 切 比 雪夫 点 ， 以 便 
其 他 程序 调用 。 


程序 5-3 


cheb.m 文件 代码 如 下 : 

function [D,x]=cheb(N) 

if N==0, D=0: x=1; return, end 
x=cos(pi*(0:N)/N)'; 

c=[2; ones(N-1,1): 2].*(-1).“(O:N)'; 
X=repmat(x,1,N+1); 

dX=X-X" 
D=(c*(1./c)./(dX+(eye(N+1))): 
D=D-diag(sum(D り ): 


实际 上 ，cheb.m 并 不 是 严格 按照 式 (5-12) 来 计算 Dx 的 ， 对 角 线 上 的 元 素 是 由 对 角 
线 以 外 的 元 素来 计算 的 ， 即 : 


(Dv) ,=->(Dv)， (5-15) 


这 样 就 给 出 了 存在 舍 入 误差 的 情况 下 更 具 稳 定性 的 Dy。 试想 这 个 情形 : 对 于 离散 函数 
值 ヵ =(1, 1, .…, 1) , 它 的 插值 函数 为 一 常数 p(x)=1, 所 以 p(x)=0。 这 就 要 求 Dy 与 (1,1,...,1) 
的 乘积 必须 是 (0, 0, .…, 0) ， 于 是 就 得 到 了 式 (5-15)。 

下 面 是 W=1, 2, 3, 4, 5 时 cheb 输出 的 结果 ， 注 意 到 Dx 是 “中 心 对 称 ” 的 ， 即 : 
(DN); ーー( の yy っ o 


>> cheb(1 ) 
ans = 


0.5000  -0.5000 
0.5000  -0.5000 


>> cheb(2) 
ans = 
1.5000  -2.0000 0.5000 
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0.5000 
-0.5000 


>> cheb(3) 


als 一 


3.1667 
1.0000 
-0.3333 
0.2000 


>> cheb(4) 


daT1S 一 


う .5000 
1.7071 
-0.5000 
0.2929 
-0.5000 


>> cheb( 5 ) 


ahns 一 


6. っ 000 
2.0180 
-0.7230 
0.3820 
-0.2704 
0.5000 


2.0000 


-4.0000 
ー0.3333 

1.0000 
-1.3333 


-0.8284 
-0.7071 
1.4142 
-0.7071 
1.1716 


-10.472 1 
-1.1708 
2.0000 
ー0.6944 
0.6180 
-1.1056 


-0.5000 
ー-1.5000 


1.3333 
-1.0000 
0.3333 
4.0000 


2.6944 
-2.0000 
-0.1708 

1.6160 
-0.8944 

1.5279 


-0.5000 

0.3333 
-1.0000 
-3.1667 


-1.1716 
0.7071 
-1.4142 
0.7071 
6.8284 


02 の 
0.6944 
-1.61680 
0.1708 
2.0000 
ー2.6944 


0.5000 
ー-0.2929 
0.5000 
-1.7071 
-5.5000 


1.1056 
-0.0180 
0.6944 
-2.0000 
1.1708 
10.4721 


シン ーー 


系 う 平 


-0.5000 
0.2764 
-0.3820 
0.7230 
-2.0180 


切 比 雪夫 谱 方法 


-8.5000 


Dw 是 用 于 求 1 阶 导数 的 切 比 雪夫 求 导 和 矩阵, 要 得 到 用 于 求 2 阶 导数 的 切 比 雪夫 求 导 算 
阵 ， 一 般 有 两 种 思路 : (1) 用 精确 的 表达 式 计 算 。(2) 直接 对 Dw 平方 。 为 了 简便 ， 本 书 
采用 第 2 各 思路， 同样 ， 还 可 以 得 到 用 于 求 高 阶 导 数 的 切 比 雪夫 求 导 和 从 阵 : 
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($-16 ) 


因为 Dy 的 表达 式 是 在 区 间 [-1, 1] 上 得 到 的 ， 所 以 ， 在 对 其 他 区 间 上 的 函数 求 导 前 ， 还 


需要 对 Dw 进行 缩放 ， 即 : 6/6x 一 (2/L)Dy，0%6x' 一 [(2/L)Dw]”。 


下 面 的 代码 用 切 比 雪夫 求 导 矩阵 计算 u(x)=sech(XW) 和 w(x)=e”™3 在 [-1, 1] 上 的 1、2 阶 导 


数 ， 并 与 精确 解 进行 比较 。 
程序 S-4 
clear all: close all: 
L=2: N=32; 
% 构 造 切 比 雪夫 求 寻 和 窍 阵 
ID,x ビ cheb(N): D=D/(L/2): 
D2=D^2: x=L/2*x: 


for m=1:2 


1f m== 

u=sech(x); 

% 导 数 的 精确 解 

du exact(:,1) 三 -u.*tanh(x): 

du exact(:,2)=u-2*u.^3; 
else 

u=exp(sin(2*x)); 

% 导 数 的 精确 解 

du _ exact(:,l)=2*cos(2*x).*U; 

du exact(:,2)=4*u.*(cos(2*x).^2-sin(2*x)); 
end 
% 切 比 雪 夫 谱 方法 求 导 
du cheb(:,l)=D*u; 
du cheb(:,2)=D2*u; 
error=max(abs(du cheb-du exact)): 
titles={'u(x)=sech(x)','u(x)=e^{sin(2x) Vy; 
labels={'u"(x)','u"™"(x)'}; 
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subplot(3,2,m) 
plot(x,u,'k',x,u,'.r', MarkerSize',13,Line Width',1.5) 
title(titles(m)), xlabel x, ylabel u(x) 
for n=1:2 
subplot(3,2,2*n+m) 
plot(x,du exact(:,n),'k',x,du cheb(:,n), ... 
.r','MarkerSize', 13,'LineWidth', 1.5) 
title([ "Error {max}+=' num2str(error(n))|) 
xlabel x, ylabel(labels(n)) 
end 


end 


程序 输出 结 朱 如 图 5-4 所 未 ， 曲 线 为 精确 的 uO で) 和 wu"0), 点 分 別 方 CD) 及 利用 
切 比 雪夫 求 导 和 矩阵 计算 得 到 的 wo 和 gz"G)。 可以 看 到 , 在 N=32 的 条 件 下 ， 误 差 在 10 ” 
至 10 “数量 级 。 


u(x)=sech(x) U(X)=e 
] 3 
0.9 
2 
る 08 9 
3 3 
0.7 ! 
0 
ー] ー0.5 0 0.5 ] 一 | ー0.3 0 0.3 ] 
Xx x 
Frror。 デ 6.678e-014 Errormax=6.6391e-013 
0.5 4 
2 
る 0 > 0 
ゴ > 
一 2 
ー0.3 一 4 
一 ] ー0.5 0 0.5 ] ー] ー0.3 0 0.5 ] 
Xx x 
Frror。 デ 1.1928e-011 Errormax=2.3485e—010 
0.5 5 
0 
る 0 る 
~ つ = 
一 0.9 _10 
| 一 [3 
一 | ー0.5 0 0.3 ] 一 | ー0.5 0 0.5 ] 
Xx X 


图 5-4 用 切 比 雪夫 求 导 和 矩阵 计算 w(x)=sech(x) 和 u(x)=e" 在 [-1, 1] 上 的 
1、2 阶 导数 的 数值 解 〔 点 ) 并 与 精确 解 〔 曲 线 ) 比较 


对 于 二 维 问题 , 先 用 切 比 雪夫 点 分 别 在 zx. 了 方 同上 划分 区 间 [-1 1], 即 x=(xo, x1, .…， 
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XN) 和 y=(y0, y1, …, ア yy 。 于 是 在 x-y 平 面 的 -1 三 x, yy 三 1 区 域内 得 到 了 (N+1) 个 点 : (xo， 
Yo), (Ko, 1), Co PN), (ij。 ア 6)。 … (Yi PN), .…. (Xn, yw)， 如 图 5-5 所 示 , 左 図 中 W=8, 右 
图 中 W=16。 


图 5-5 用 切 比 雪夫 点 誠 分 二 源 区 域 


用 N+1 阶 方 阵 或 (N+1) 维 向 量 w 表示 这 些 点 上 的 函数 值 (可 用 Matlab 的 reshape 函数 
在 二 者 之 间 互 相 转 换 ): 


00 Uol UoN 
Uo Ul UN 
UN )x(N+1) ・ ( 3$-17) 
yo Lvl HNN 
T 
Wyse = (Voo’ i 0 Ui ls i ($-18) 
其 中 , 元素 gy 対 記 前 浴 酸 是 (s。y)。 可 特 の 6 和 の 6" 写 妨 逢 降 形 式 : 
O"u n ー 
Oy” = DIU wi vn) CS 19) 
O"u n 四 7 I 
yh = | (Or ) | ー Uv)x(N+1) (が ) (5-20 ) 
或 者 与 为 : 
O"u n 于 
gr (Ten DDE fr ory 
O"u n 
(Dy BT) (5-22) 


其 中 , mr 为 N+1 阶 单位 矩阵 。 
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9.2 ” 狄 利 殉 羔 边界 条 件 〈 第 一 类 边界 条 件 ) 


狄 利 克 瑟 边界 条 件 (Dirichlet boundary condition)， 又 称 为 第 一 类 边界 条 件 ， 它 给 出 了 
未 知 函 数 在 边界 上 的 什 。 即 : yao=g， 其 中 ，692 为 计算 区 域 8 的 边界 ，g 为 已 知 函 数 。 


5.2.1 一 维 泊 松 方程 


在 狄 利 元 羔 边 界 条 件 下 ， 考 上 处 一 维 泊 松 问 题 : 
u"= f(x), ー1 < こ ァ <1. u(+1) =0 ($-23 ) 


其 中 ，f (7x) 为 已 知 函 数 ，u(x) 为 等 求 函数 。 将 横 轴 上 的 区 间 [-1，1] 离 散 化 为 癌 量 *=(xo, 
Xp Xm ， 相 应 地 ，w(X) 被 离散 化 为 向 量 w=(wo, ti, .……。 gy) 。 则 式 (5-23) 可 以 写 为 矩阵 


Diu= f(x), up=uy =0 (5-24) 


式 ($-24) 代表 了 含 有 N+1 个 方程 的 方程 组 ， 其 中 未 知 数 有 W-1 个 :oo .Url 
比方 程 个 数 少 2 个。 实际 上 ， 只 需要 N-1 个 方程 束 能 求解 这 些 未知 数 ， 不 妨 忽 上 略 边 界 上 的 
方程 ， 即 : 删 去 窍 阵 px 的 首尾 行 以 及 同 量 三 oo) 的 首尾 元 妹 。 又 因为 wo=uw=0, 邊 隆太 的 
首尾 列 与 其 相 乘 的 结束 也 是 0， 所 以 删 去 窍 阵 が 的 月 尾 列 和 向 量 z 的 和 月 尾 元素 。 十 走 就 得 
到 了 在 狐 利 元 彝 边 界 条 件 (は 1)=0 下 的 2 阶 切 比 雪 夫 求 导 和 窍 阵 一 一 将 和 窍 阵 Ds 的 省 尾行、 前 
尾 列 删除 后 的 W-1 阶 方 阵 ， 如 图 $-6 所 示 ， 此 和 窃 阵 将 在 后 续 内 容 中 反复 用 到 。 


WA (xo) Uo 0 
f (x1) Ul 
到 DY 
f (XN-1) UN-1 
7/ (XN) UN 0 


图 5-6 在 狄 利克 莱 边 界 条 件 w(+1)=0 下 修 改 切 比 雪夫 求 呈 年 降 


如 果 这 里 用 “~” 表 示 删 除 和 矩阵 首尾 行 和 首尾 列 、 删 除 问 量 首 尾 元 又 的 操作 ， 那 么 求 
解 式 (5-23)， 只 需 : 


a= (DB) / や ) (5-25) 
注意 , 必須 先 対 Dx 平方， 再 删除 其 首尾 行 和 首尾 列 ， 这 个 顺序 不 能 是 倒 。 此 外 ， 通 
过 式 《5-25) 得 到 N-1 维 问 量 站 后， 一 定 要 在 其 首尾 补 0。 
通过 在 切 比 雪夫 求 导 算 阵 上 乘 以 缩放 因子 ， 上 述 方法 可 以 从 区 间 [-1,1] 推 广 到 任意 区 
同 , 以下 面 的 泊 松 方 程 力 例 : 
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u"=X xX, —2<x<2, u(+2)=0 

它 的 精确 解 为 u(x)=x /12-x/6+2x/3-4/3。 计 算数 值 解 并 与 精确 解 比较 的 代码 如 下 : 

程序 5-5 

clear all: close all: 

L=4; N=10; 

[D,x|=cheb(N); D=D/(L/2): 

D2=D^“2: D2=D2(2:N,2:N); x=L/2*x; 

f テ x(2:N).^2-x(2:N): 

u=D2\f; u=|[0;u;0]; 

error 一 X.^4/12-x.^3/6 十 2*x/3-4/3-u: 

X=-L/2:0.1:L/2; 

exact=X.^4/12-X.^3/6+2*X/3-4/3; 

subplot(2,2,1 ) 

plot(X,exact,'k',x,u,'.r', MarkerSize',16,'LineWidth',1.5) 

title(| Error {max!=' num2str(max(abs(error)))|), xlabel x, ylabel u 

subplot(2,2.2) 

plot(x,error, .r, MarkerSize',16 ) 


xlabel x, ylabel Error 


(5-26 ) 


程序 输出 结果 如 图 5-7 所 示 。 N=10 时 ,精确 解 与 数值 解 吻合 得 很 好 , 最 大 误差 在 10 " 


数量 级 ， 和 而且 边 界 处 的 误 开 最小。 


Errormax=4.4409e—015 


X10™ 
0 6 
3 
ー0.5 
4 
ら 
= | 上 3 
2 
ー1.5 
1 
_2 0 
2 ー1 0 1 2 =2 ー1 0 1 2 
X X 


图 $-7 左 図 : 精确 解 ( 曲线 ) 与 数值 解 〈 点 ) 的 最 大 误差 在 10 数量级。 右 图 : 误差 分 


如 朱 油 松 方 程 的 狄 利 死 莱 边 界 条 件 更 其 一 般 性 ， 比 如 : 
が 時 = -2<x<2, u(2)=2, wu(-2)=-1 
那么 ， 有 了 两 种 方法 解决 这 一 问题 。 
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方法 1: 

式 (5-27) 的 解 可 写 为 u(x)=uo(x)+cix+c2 的 形式 ， 其 中 wo(x) 是 满足 式 (5-26) 
的 特殊 解 。 选 取 合 适 的 c」、c。 使 多 项 式 crx+c。 满足 式 〈5-27) 的 辺 界 条件 , 即 : 
(crx+e>) r=2=2, (crx 填 >) に - っ デー1, 得 色 ci=0.7$，c2=0.$。 坚 无 疑问 ，xo(Cc)+0.7Sx+0.5 必 
是 式 (5-27) 的 解 。 

太 二 2 

如 图 5-8 所 示 ， 将 矩阵 成 的 首尾 行 分 别 修改 为 100...0 和 0...001， 以 使 得 同 量 妈 
和 向 量 f(x) 的 首尾 元素 相 等 。 然后 将 问 量 f(x) 的 首尾 元 素 分 别 改 为 wo 和 ww 函数 u(x) 在 边 
界 的 取 值 )， 最 后 通过 下 式 计 算 问 量 uw: 


u=(D,) f(x) (5-28) 
20 1 0 0 0 0 0.…0 | 
f(x1) Ul 
三 Ds 
J GK) UN-1 


ORO OO ON ON (Lee | 


图 5-8 在 更 具 一 般 性 的 狄 利克 羔 边界 条 件 下 修改 切 比 雪夫 求 叶 窍 阵 


其 中 ,和 矩阵 和 向 量 上 的 “^” 代 表 对 矩阵、 向量 进行 上 述 修改 。 在 方法 2 中 , 不 但 利 用 
了 NN-1 个 方程 求解 未 知 数 由, , ,zl 还 额外 加 了 两 个 方程 (对 应 于 矩阵 2 的 首尾 行 )， 
以 确保 z 的 首尾 元素 必 満 足 辺 界 条 件 。 

用 方法 1 和 方法 2 求 解 式 ($-27) 并 与 精确 解 xc)=Y712-y"/6+17x/12-$76 比较 的 代码 
如 下 : 


程序 S-6 


clear all: close all: 

L=4; N=10; 

[D,x|=cheb(N); D=D/(L/2); x=L/2*x; 
% 方 法 1 

D2=D^2: D2=D2(2:N,2:N); 
f=x(2:N).^2-x(2:N); 
ul=D2\f; u1=| 0:u1:0]: 
ul=ul+0.75*x+0.5: 

% 方 法 2 

D2=D^2: D2([1 N+1],:)=0; 
D2(1,1)=1; D2(N+1,N+1)=1; 
f=x(2:N).^2-x(2:N); 
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f=[2;f;-11; u2=D2\f; 
% 误 到 
exact=x.^“4/12-x.^3/6+17*x/12-5/6; 
errorl=abs(exact-ul); 
error2=abs(exact-u2); 
subplot(2,2,1) 
plot(x,ul,'or,x,u2,+b',x,exact,'k','MarkerSize',10,'LineWidth',1.5) 
title({['Errorl {max}=' num2str(max(error1 )) |: ... 

['Error2 {max}=' num2str(max(error2))]}) 
xlabel x, ylabel u, legend(' 方 法 1 方法 2',2) 
subplot(2,2,2) 
plot(x,errorl],'or',x,error2,'+b',MarkerSize',l10,Line Width',1.5) 
xlabel x, ylabel Error, legend(' 方 法 1 方法 2',2) 


程序 输出 结果 如 图 5-9 所 示 , 在 N=10 的 情況 下 , 方 法 1 的 计算 结果 和 方法 2 的 计算 
结果 均 与 解析 解 吻合 较 好 ， 误 差分 别 在 10 “和 110“ 数量级。 此 外 ， 方 法 1 在 各 处 的 误差 


要 普 授 高 于 方法 2 在 各 处 的 误差 。 


Errorl 4.S519e-015 
Error2 8.8818e-016 


图 5-9 左 图 : 方法 1 的 计算 结果 Co)、 方 法 2 的 计算 结果 (+)、 
解析 解 ( 曲 线 )， 右 图 : 方法 1 的 误差 (o)、 方 法 2 的 误差 (+) 
5.2.2 二 维 注 松 方 程 


对 于 含有 边界 条 件 的 二 维 泊 松 方 程 (5-29)， 不 能 直接 使 用 式 (5-21)〉 和 式 (5-22) 求 
解 ， 还 需要 根据 边界 条 件 对 和 矩阵 和 向 量 进行 相应 修改 。 


Eb = f(x,y), 1<* ア <1 ML = ul =0 ($-29 ) 
考 谍 到 函数 xz 在 边界 上 的 取 值 为 0, 所 以 将 图 5-6 的 思路 推广 到 二 维 平 面 上 来 .用 N-1 
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阶 方 阵 或 (NW-1) 维 向 量 立 表示 除 边 界外 所 有 位 置 的 函数 值 ， 即 : 


4 (12 di(N1) 
_ (の 1 の 2 の (が -) 
UN_1)x(N-1) . ; ($-30 ) 
A U( Ny-_1)2 7-1)(W-1) 
_- T 
4 一 ( ん ・・・ う NE 7] 2 ， / ク と Cis HN ・・・ う | ( $-3 1 ) 


么 ， 可 在 ulw-1=uly-1=0 的 条件 下 格式 (5-29〉 中 的 0%w/6y 和 の 8y” 写 为 矩阵 形式 : 


Ou 
2 > (Tr ® Dr )B (532) 
< > (DB @ 1 ) i (5-33) 
则 拉 普 拉 斯 算 符 可 写 为 : 
2 
A- BO + OD ($-34) 
Ox” の > 
求解 式 〈$-29)， 只 需 : 
TO (5=35) 


其 中 ， 癌 量 f 为 f(x,y) 在 各 个 离散 点 的 取 值 ， 上 面 的 “~” 代 表 对 其 进行 删除 所 有 边界 
值 的 操作 , 上 面 的 “~” 代 表 对 其 进行 删除 首尾 行 、 首 尾 列 的 操作 。 在 这 些 过 程 中 , (N+1) 
维 向 量变 为 (N-1) 维 向 量 ，N+1 阶 方 阵 变 为 N-1 阶 方 阵 。 当 然 ， 通 过 式 (5-35) 得 到 站 之 
后 ， 还 需要 在 边界 对 应 的 位 置 上 补 0。 

图 5-10 分 别 显 示 了 在 不 考虑 边界 条 件 情况 下 ( 式 (5-21)〉 和 式 (3$-22)) 和 函数 在 边 
界 取 值 为 0 的 情況 下 ( 式 (5-32) 和 式 (5-33))，0”/6x*、0”/6y* 和 0%/6x*+0“/6y” 的 和 矩阵 形式 ， 
每 个 点 表示 一 个 非 零 元 素 。N=5 时 ， 上 三 图 均 为 6* 阶 方 阵 ， 下 三 图 均 为 4 阶 方 阵 。 与 有 
限 差 分 法 所 构造 的 二 维 求 导 和 抢 阵 相 比 ， 二 维 切 比 雪 夫 求 导 和 矩阵 要 更 稠密 。 此 外 ， 筱 之 表 省 ， 
后 者 的 精度 更 高 , 所 以 只 需 较 小 的 NN 就 可 以 计算 出 令 人 满意 的 结果 , 大 大 地 减 小 了 运算 量 。 
代码 如 下 : 


程序 S-7 


clear all: close all: 

L=2; N=5; 

% 构 造 切 比 雪夫 求 寻 窍 阵 
ID,x ビ cheb(N): D=D/(L/2): D2=D^2: 
I=eye(N+1); LA=kron(L,D2)+kron(D2,I); 
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subplot(2,3,1), spy(kron(1,D2),'k',s) 
title(kron(I {N+1},D^2 N)') 
subplot(2,3,2), spy(kron( D2,1),'k',s) 
title('kron(D^22_N,I_ {N+1})'") 
subplot(2,3,3), spy(LA,'k',8) 
title('kron(I 1N+1IJD^22_N)+kron(D^22_N,I_ {N+1})'" 
D2=D2(2:N,2:N); 
I=eye(N-1); LA=kron(1,D2)+kron( D2,1); 
subplot(2,3,4), spy(kron(1,D2),'k',10) 
ttle( kron(1 {N-1},D’^2 N(2:N,2:N))') 
subplot(2,3,5), spy(kron(D2.,1),'k',10) 
title(kron(D^2 N(2:N,2:N),L {N-1})'") 
subplot(2,3,6), spy(LA,'k',10) 
title({['kron(I {N-1},D’2 NCQ2:N,2:N)));... 

「 +kron(D^2_N(2:N,2:N)JL {N-1})']}) 


kron(hsi,DS) kron(D¥, Ii ) 


10 
20 
30 
0 10 20 30 0 2 っ 0 30 
nz=216 nz=216 
kron(I_i.DK(2 :N,2:N)) kron(DK(2 :N,2:N),IN_ i) 


nz=64 
图 5-10 不 考虑 边界 条 件 ( 上 三 图 ) 和 函数 在 边界 上 取 值 为 0 (下 三 图 ) 时 ， 


Kron(Lsar, Di )+kr on(DN, Inn ) 


4 

トス メス )  @ 
二 起 四 和 志和 二 
ト よ スス よ ス よ 

ト よ メス エエ 1 


Oete & 
トス メメ スム 】 
L 2 
の の ゆら の の の の 
の の の の の の の 
る の らら の の の の 
の の の の の の 
の の ちら ゆ の な か 


0 10 20 30 
nz=396 


kron(l_i.DK(2:N.2:N)) 
+kron(DA(2:N,2:N),In 1) 


0 0 以 及 66x2+60”/6y? 的 矩阵 形式 ，N=5 


接 下 来 以 二 维 泊 松 方程 (5-36) 为 例 给 出 具体 求解 过 程 ， 代 码 如 下 : 


0” の 


3 
和信 に erOerey -1< xy<1， | = =0 
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程序 5-8 


clear all: close all: 

L=2; N=20; 

% 构 造 拉 普 拉 斯 算 符 矩阵 

[D,x|=cheb(N); D=D/(L/2): D2=D^2: 
D2=D2(2:N,2:N): 

I=eye(N-1); LA=kron(L,D2)+kron(D2,I); 
x=L/2*x: y=x; [x,y|=meshgrid(x,y); 
X=x(2:N,2:N); Y=y(2:N,2:N); 
f=6*(X(:)+1).*(Y(:)+0.1).3; 

% 求 解 

U=ZeroS(NT+1]); 

u(2:N,2:N)= テ reshape(LAN,N-1,N-1): 

% 画 图 
[x2,y2]=meshgrid(-L/2:0.04:L/2,-L/2:0.04:L/2); 
U2=Interp2(X,y'U,X2,y2, cublc ); 
mesh(x2,y2,u2), xlabel x, ylabel y zlabel u 
view(-60,30), axis(|-1 1 -1 1 -0.3 0.1]) 


因为 W 仅 为 20, 且 原点 附近 的 网 格 比 较 稀 朴 , 所 以 直接 画 出 来 的 解 的 曲面 将 不 够 光 清 。 
为 解决 这 一 问题 ， 本 程序 使 用 了 二 维 数据 内 插值 函数 interp2， 使 最 终结 果 建 立 在 稠密 、 均 
色 的 网 格 上 ， 如 图 $-11 所 示 。 


ンー くべ の 
RN 


ep 
ァ ン 


W 


い 
\ S 
NN 


リ KX 
NN 
N 


ei Co 
i 2 
べべ べべ べべ べべ 
BE 


图 5-11 二 维 泊 松 方程 的 解 
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再 来 考虑 具有 更 复杂 边界 条 件 的 二 维 油 松 方程 ， 如 式 〈5S-37) 所 示 ( 其 中 的 sinc(y) 函 
数 定 义 为 sin(zx)/rx): 


2 
6 +0. ー1<x,y<1 


Ox” の 
“2 1/2- | (5-37) 
ul =sinc(4x)/2 
dP (0 ul Mi 0 


针对 这 种 更 具 一 般 性 的 二 维 边 界 条 件 ， 可 将 图 5-8 所 示 的 思路 推广 到 二 维 空间 上 来 ， 
先 写 出 不 含 边界 条 件 的 拉 普 拉 斯 算 答 的 算 阵 形式 〈 注 蝇 与 式 〈《5-34) 区 列 ): 


2 2 
A t=D ®t OD ($-38) 


然 后 対 利隆 进行 修改 ， 代 但 如 下 : 
程序 5-9 


clear all: close all: 

L=2; N=5; 

% 构 造 拉 普 拉 斯 算 符 矩阵 
[D,x|=cheb(N); D=D/(L/2): D2=D^2: 
I=eye(N+1); LA=kron(L,D2)+kron(D2,I); 
x=L/2*x; y=x; [x,y]=meshgrid(x,y); 
X=x(:); Y=y(:); 

subplot(2,3,1), spy(LA,'k',8) 
title('kron(I {N+1},D’^2 N)+kron(D^2 NI {N+ 
% 修 改 拉 普 拉 斯 算 符 矩阵 
bound=find(abs(X)==L/2|labs(Y )==L/2); 
LA(bound,: )=0; 

subplot(2,3,2), spy(LA,'k',8) 
title('L(bound,: )=0") 
LA(bound,bound)=eye(4*N); 
subplot(2,3,3), spy(LA,'k',8) 
title('L(bound,bound)=eye(4*N)') 


其 中 ,语句 “bound=find(abs(X)==L/2|labs(Y)==L/2);” 表 示 : 找到 和 矩阵 区 中 所 有 对 应 于 
边界 的 行 的 序号 ， 之 后 将 这 些 行 的 所 有 元 素 蔡 换 为 0, 最 后 把 送 占 行 中 第 休 元 素 彼 濱 妨 1 
(i 是 该 行 的 序号 )。 程序 输 出 的 结果 显示 了 这 一 过 程 ， 如 图 5-12 所 示 。 
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kron(Iuri。DK )+kron(D%, IN ) L( bound,:)=0 L(bound,bound)=eye(4*N) 


らら の らら の の の 

トメ メト 』 ト : $Y 
00006  @ 
の ゆら の らら の 
トメ メ よ メメ) 
し rk 


る 
Se et 
0009009 $ 
きき $esse 外 


10| »。 333333 
る es 
sssecs*。 
,Bs 
$0258? 
20 a 
けけ すす 
38 
人 
サイト 
932333 
30 3 
8 
a 228682 
8 
bd bd bd 4 
0 10 20 30 0 10 20 30 
nz 一 396 nz=176 


图 5-12 ”修改 拉 普 拉 斯 算 符 矩阵 的 过 程 
在 上 加 “^” 表 示 修 改 后 的 拉 普 拉 斯 算 符 窍 阵 。 对 于 式 〈$-39)， 容 易 知 道 : 在 边界 
处 ,向量 f 的 元 素 和 向 量 w 的 元 素 相等 ; 在 其 他 位 置 ， 向 量 f 的 元 素 等 于 0*w/Ox*+0"w/6y 在 
该 处 的 值 。 


ー アル (5-39) 


aya (N+1) xl 


关羽 本 起 ($-28), 求 解 式 ($-37) 内 第 


ー 7 = 
Md Ya ‘3-40) 


其 中 , / 上 的 “^” 表示 : 在 边界 处 , f 的 取 值 与 u(x, y) 的 边界 条 件 一 样 ， 而 在 其 他 位 置 
的 取 值 为 f(x,y)=6(x+1)QG+0.1) 。 具 体 代 码 如 下 : 


程序 5-10 


clear all: close all: 
L=2; N=40; 
% 构 造 拉 普 拉 斯 算 符 矩阵 
ID,x ビデ cheb(N): D=D/(L/2): D2=D^2: 
I=eye(N+1); LA=kron(L,D2)+kron(D2,I); 
x=L/2*x; y=x; [x,y|=meshgrid(x,y); 
X=x(:); Y=y(:); 
% 修 改 拉 普 拉 斯 算 符 和 矩阵 
bound=find(abs(X )==L/2|abs(Y )==L/2); 
LA(bound,: )=0; LA(bound,bound)=eye(4*N); 
% 给 ff 加 入 边界 条 件 
f=6*(X+1).*(Y+0.1).3; 
f(bound)=(Y(bound)==L/2).*sinc(4*X(bound))/2+... 
(X(bound)==L/2).*max(0,(0.5-abs(Y (bound)))); 
% 求 解 
u=reshape(LAV\f,N+1,N+1); 
% 画 图 
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x2=ーL/2:0.04:L/2: y2=X2; 
u2=interp2(x,y,u,x2,y2','cubic'"); 
mesh(x2,y2,u2) 

view(-60,30), axis(|-1 1 -1 1 -0.25 0.5]) 
xlabel x, ylabel y, zlabel u 


程序 得 出 结 末 如 网 5-13 所 示 : 


上 
| 


a 2> i 
站 て メメ Nh 


MN NY 


图 5-13 复杂 边界 条 件 下 二 维 泊 松 方程 的 解 
5.2.3 Allen-Cahn 方程 


Allen-Cahn 方程 的 形式 为 : 


2 
UE ー] こ x<]1 
ot Ox 
u| =+l 


| =0.53x —0.47sin (1.5nx) 


(5-41 ) 


离散 化 x 和 zx。7 之 后 , 式 (5-41) 中 的 0%/6x” 可 用 矩阵 D4 斗 算 , 67 可 用 ode45 函数 


计算 。 但 需要 把 边界 条 件 转化 为 ode45 函数 能 直接 处 理 的 形式 ， 所 以 将 上 式 写 为 : 


UM —]<x<l 
Ot Ox” 

Ou ー 

ot ァ ニ 土 1 5 


| 。=0.53x-0.47simn (1.3zx) 


(5-42 ) 


容易 知道 , z( 上 1, 0)=+1 及 6w6 小 -=0 等 价 于 u( キ 1, =1, 所 以 式 ($-41) 和 式 5-42) 
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是 等 价 的 〈zx(+1 0)=+t1 是 隐 含 在 初始 条 件 里 的 )。 当 e=0.01 时 ， 求 解 式 ($-42) 的 代码 如 下 : 
程序 S-11 


主 程序 代码 如 下 : 

clear all; close all: 

L=2; N=20; 

% 构 造 切 比 雪 夫 求 寻 垂 阵 
[D,x|=cheb(N); D=D/(L/2): 
XRD、2， 

% 初 始 条 件 
u=0.53*x-0.47*sin(1.5*pi*x); 

% 求 解 

t=[0:2:100]; epsilon=0.01: 
[tusol|=ode45(allen cahn't,u,[],D2,epsilon); 
% 男 图 

subplot(position',|0.15 0.58 0.7 0.4]) 
mesh(x,t,usol), view(-60,55) 

xlabel x, ylabel t, zlabel u 

axls([-1 1 0 100 -1 round(max(usol(:)))]) 
subplot(position',|0.15 0.08 0.7 0.4]) 
X=L/2:-0.02:-L/2; 
u=interp2(x,t,usol,X,t,'cubic"); 
mesh(X,t,u), view(-60,55) 

xlabel x, ylabel t, zlabel u 

axis([-1 1 0 100 -1 round(max(u(:)))]) 


文件 allen cahn.m 代価 如 下 : 


function du=allen cahn(t,u,dummy, D2,epsilon) 
du=epsilon* D2*utu-u.^3; 
du(| 1 end|)=0; 


程序 输出 结果 如 图 5-14 所 示 ， 由 于 计算 范围 中 部 的 网 格 比 边缘 的 稀 芷 , 而且 切 比 雪夫 
求 导 和 矩阵 的 计算 精度 高 ， 无 需 较 大 N 值 ， 所 以 曲面 在 zx 变化 快 的 地 方 束 不 够 光滑 (上 图 )。 
用 interp2 函数 插值 得 到 的 密集 、 均 勺 网 格 上 的 结果 更 准确 、 美 观 〈 下 网 )。 

若 Allen-Cahn 方程 的 边界 条 件 包含 时 间 t， 比 如 : 


2 
OU Ou u, —l<x<l 
ot Ox” 
ul =1+sin” (0.27) ($-43 ) 
7 | 


| 。=0.33x-0.47sin (1.5r ) 
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i 插值 并 
: 利用 interp2 
llen-Cahn 方程 的 结果 ; 
的 四 均匀 化 网 格 之 后 的 结 
ES 


等 价 形式 : 
能 直接 求解 的 等 从 
其 写 为 ode45 函数 能 直接 求 
> 可 将 其 把 > 
类 似 地 ， 


ー] こ ャ <] 

Om 。 

CE 
中 (5-44 
2%| =0.2sin(0.47) 

の | 

ou 0 

Bt， 


0.53x-0.47sin (1.5zr ) ee 
=0. 和 
llen cahn. 
时 序 5-11 中 的 a 
只 需 对 程序 
如 下 : 
程序 5-12 ] 
文件 allen cahn.m 代码 如 下 


Silon ) 
tion 人 
時 9 
du(l)=sin(2*t/5)/5; 
du(end)=0; 


与 文 
\[2]， 得 到 的 结果 与 
源 于 文献 [2]， 得 

本 例 和 上 例 的 问题 均 来 源 于 文 表 

5-15 所 示 。 

程序 输出 结果 如 图 
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献 [2] 完 全 相同 ， 但 这 里 给 出 的 方法 更 简洁、 精确 ， 有 兴趣 的 读者 可 以 比较 一 下 。 


- A 
i と と た た た た た た た た た 
5 た た メッ と た 7 た た と た た た アッ ター ンス 1 
と た ナナ た / 2 . 


ナブ 
ここ た た たん た アン 
こと こと た た た た 


图 5-15 Allen-Cahn 方程 的 数值 结果 


5.2.4 二 维 热传导 方程 


考虑 如 下 二 维 热传导 方程 


2 2 
人 4 


の (@ の 2 

中 = = (5-45) 
| =1—Vx +y’, x +y <l 

ul = 0, * デ キア ーッ 1 


其 中 ,1 代表 时 间 ，x、y 代表 空间 坐标 ，u(x, », の 代表 7 肘 刻 区 域内 的 温度 分 布 , 辺 界 
条 件 给 出 了 边界 处 的 温度 。 用 方 阵 盔 wDxovD 表 示 除 边界 以 外 位 置 的 离散 化 函数 值 (定义 见 
式 〈5$-30))， 则 有 : 


OW 、 2 
2 ンプ Dily uw 1) (3-46) 
Ou a TY RR 
> >| Dy UN_1)x(N-1) ー UN_1)x(N-1) (Ds ) (S547 
OX 


为 了 避免 出 现 (N-1)》 阶 大 型 方 了 泗 ， 所 以 此 处 不 用 式 (5-34) 的 形式 表示 拉 普 拉 斯 算 
符 。 只 有 在 迫不得已 的 情况 下 才 可 以 使 用 式 (5-34)， 如 : 特征 值 问题 、 拉 普 拉 斯 算 符 
的 逆 返 算 等 。 

根 据 式 (5-46)、 式 (5-47) 处 理 二 维 热传导 方程 等 号 右边 的 两 项 ， 用 ode43 计算 左边 
的 2, 代 偶 如 下 : 


程序 5-13 


主 程序 代码 如 下 : 
clear all: close all: 
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L=4; N=40; 
% 构 造 切 比 雪夫 求 寻 窍 阵 
[D,x|=cheb(N); D=D/(L/2): D2=D^2: 
D2=D2(2:N,2:N): x=L/2*x; y=X; 
[X,Y |]=meshgrid(x(2:N),y(2:N)); 
% 初 始 条件 
u=max(0,1-sqrt(X.“2+Y.^“2)); 
% 求 解 
t=[0 0.02 0.1 0.5|: 
[t,usol]=ode45('heat',t,u(:),[],N,D2); 
% 画 图 
for n=1:4 
subplot(2,2,n) 
u=Zeros(N+1); 
u(2:N,2:N)=reshape(usol(n,:),N-1,N-1); 
surfl(x,y,u), shading interp 
axis([-22-2201]) 
xlabel x, ylabel y, zlabel u 
title(['t=' num2str(t(n))]); 


end 


文件 heat.m 代 人 如 下 : 

function du=heat(t,u,dummy,N,D2) 
u= デ reshape(u,N-1,N-1 ): 
du=reshape(D2*u+u*D2'(N-1)^2,1): 


程序 的 输出 结果 如 图 $-16 所 示 ， 热 量 迅速 地 从 中 央 高 温 区 域 向 四 周 扩散 ， 温 差 越 小 ， 
扩散 速度 越 慢 ， 直 到 各 个 位 置 的 温度 都 趋 于 0。 
下 面 分 析 更 复杂 边界 条 件 下 的 二 维 热传导 方程 : 


Ou の 6 

人 —l<x,y<l 

Me = ユー 

ul 站 = = () ( $-48) 
X=—1 y=1 
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y -2 -2 区 


图 $-16 


ou _| 9 
ot | る - 


Ou _ou 
otl|,, ot 
Fl 
ul_, = 
| =0, 


8* 


DFI 


y -2 -2 < 
t=0.5 


y -2 -2 X 


二 维 热传导 方程 的 计算 结果 


U, 
Oy” | 


人 (5-49 ) 


1 一 (x-1) +y’, (x-1) +» く 1 


(x-1) +y >1 


这 种 形式 可 直接 用 ode45 函数 计算 ， 具体 代 人 码 如 下 : 


程序 S-14 


主 程序 代码 如 下 : 

clear all: close all: 

L=2; N=20; 

% 构 造 切 比 雪夫 求 导 和 矩阵 
ID,x cheb(N): D=D/(L/2); 
D2=D’2; x=L/2*x; y=X; 
[X,Y meshgrid(x,Y): 

% 初 始 条件 


u=ーmax(0,1-sqrt(( ペ ー1).^2+Y.^2)): 


% 求 解 
t=[0 0.001 0.02 0.5]; 
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[t,usol]=o0de45('heat2',t,u(:),[],N,D2); 

% 国 网 

for n=1:4 
subplot(2,2.n) 
surfl(x,y,reshape(usol(n,:),N+1,N+1)) 
axis([-1 1 -1 10 1]), shading interp 
xlabel x, ylabel y zlabel u 
title(['t=' num2str(t(n))]); 


end 


文件 heat2.m 代 偶 如 下 : 

function du=heat2(tLu,dummy,N,D2) 
u=reshape(u,N 十 1 ,N 十 1 ): 
du=D2*u+u* D2" 

du([1 N+1],:)=0; du(:,[1 N+1|)=0; 
du=du(:); 


程序 输出 结果 如 图 5-17 所 示 ， 从 三 0 时 刻 开 始 ， 温 上 度 分 布 曲面 逐渐 趋 于 光滑 ， 从 x=1 
边界 进入 的 热量 被 万 外 三 个 边界 吸收 ， 稳 定之 后 就 成 了 右 下 图 的 形态 。 


= = X 


图 5-17 二 维 热传导 方程 的 计算 结 来 
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5.2.5 ”一 维特 征 值 问题 


本 小 和 分 析 一 维 无 限 深 方 势 阱 中 粒子 的 流 函 数 分 布 问 题 。 宽 为 工 的 无 限 深 方 势 阱 表达 
式 为 : 
[0,，|#<52 
P= x|> 22 (5-50) 
由 干 勢 佐 元 限 高 , 粒子 不能 写 辻 持 壁 , 所 以 障 外 舌 壁 姓 的 渡 函 数 必 力 0。 在 势 阱 内 ， 
采用 目 然 单位 的 一 维 定 态 攻 定 请 方程 为 〈 取 工 =2): 


7 =Au, —1<x<l, u(+1) =0 ($-$1 ) 


其 中 ,w 代表 波 函 数 ,4 代表 能 量 特 征 信 。 上 式 的 精 秦 解 六 : ん =ーr7 ツ 4, uv,=sin[nz(x+1)/2], 
n=1, 2, 3, ...。 

用 N+1 维 问 量 w 代表 切 比 雪夫 点 上 的 波 函 数 取 值 , 删 去 其 首尾 元 又 得 到 N-1 维 回 量 ヵ 。 
则 式 (5-51)〉 的 矩阵 形式 为 : 


が ニス (Ss52) 


Si 


(W-1)x1 
调用 Matlab 的 eig 图 数 求解 矩阵 的 特征 值 ， 代 但 如 下 : 
程序 5-15 


clear all: close all: 
L=2; N=16; 
% 构 造 切 比 雪夫 求 寻 窍 阵 
[D,x|=cheb(N); D=D/(L/2): D2=D^2: 
D2=D2(2:N,2:N): x=L/2*x; 
% 求 解 
| VE| ビ eig(D2): E=diag(E); 
[eigenvalues,i]=sort(E,'descend"); 
V 三 | Zeros(1,N-1):V(:1):Zeros(1,N-1)| 
% 画 图 
x2=—1:0.01:1; 
for m=1:12 
subplot(4,3,m) 
plot(x2,polyval(polyfit(x, V(:,m),N),x2),'k', ... 
xX, V(:,m),'.r', MarkerSize,15,LineWidth',1.5) 
n=sgrt(-eigenvalues(m)*4/p1’2); 
title(| 一 ( num2str(n) \pU^2/4 ]); 
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@ 


nd 


这 里 N=16， 所 以 在 每 个 特征 函数 上 只 获得 了 17 个 数据 点 。 当 特征 函数 的 变化 比较 剧 
烈 时 ， 这 些 有 限 的 数据 就 不 足以 描绘 出 特征 函数 的 本 来 模样 。 但 实际 上 这 些 数据 点 包含 了 
更 多 的 信息 ， 因 为 本 章 使 用 代数 多 项 式 作为 插值 疯 数 ， 所 以 利用 polyval、polyfit 員数 ( 多 
项 式 曲 线 拟 合 的 Matlab 函数 ) 可 以 精确 地 获取 插值 函数 在 其 他 位 置 的 值 ， 以 便 画 出 准确 的 
特征 函数 图 像 。 如 图 5-18 所 示 ， 点 为 计算 结果 ， 曲 线 为 多 项 式 曲 线 拟 合 的 结果 ， 每 幅 图 上 
面 都 标 有 计算 得 到 的 特征 值 。 

需要 强调 的 是 ， 在 特征 函数 的 每 个 周期 内 ， 人 至 少 有 2 个 数据 点 才能 保证 其 正确 性 。 比 
如 , 对 于 同样 的 NM, 切 比 雪夫 点 在 原点 的 密度 为 等 间距 点 在 原点 密度 的 20r, 在 a 维 空间 中 ， 
这 一 比例 变 为 (2/m)”。 根 据 式 (5-51) 的 精确 解 表达 式 ， 特 征 函 数 的 周期 为 4/m。 所 以 ， 在 原 
点 处 ， 硅 特征 函数 每 周期 内 的 数据 点 多 于 2 个， 有 : 2/xN/2:4/n>2， 可 化 为 : n<2N/r=10。 
这 即 是 说 ， 当 WN 取 16 时 ， 计 算 结 果 中 n 宇 10 的 特征 值 和 特征 函数 都 是 不 足 为 信 的 ， 这 与 
图 5-18 一 致 。 与 精确 解 相 比 ， 第 7、8、9 个 特征 值 虽 有 误差 ， 但 还 比较 小 ， 第 10、11、 
12 个 特征 值 束 很 不 可 信 了 ， 特 征 疯 数 亦 如 此 。 


ー(1)74 ー(2z)74 ー(3z)274 
0 0.5 0.5 
-0.2 
トー 
| 0 1 MV 0 1 FM2 0 | 
ー(4)74 ー($z)74 ー(6z)74 
0.5 0.5 AA 0.5 
VA 个 AVAVA 
J 0 a 0 "3 0 1 
ー(6.9996z)74 ー(8.0096z)74 ー(8.9033z)74 
0.5 AAAA 0.5 0.5 
VAVAVA VVVV ' 
-0.5 =08 -0.5 
| 0 1 a 0 1 0 1 
-(10.41397)74 -(10.76917)74 ー-(15.3609z)74 
0.5 0.5 = 1 
vVW wf 
| 0 1 i 0 1 Tj 0 1 


图 5-18 一 维 无 限 深 方 势 阱 中 粒子 波 函 数 的 特征 值 和 特征 函数 


ーー 
し っ 
O\ 


5.2.6 ”一 维 特征 值 问题 


単位 ): 
2 2 
u=Au, 一 1 < テア <1 
Ox” Oy 
ul 四 Mi 
它 的 特征 值 和 特征 函数 的 精确 解 为 (m,n2=1, 2, 3, …。 う : 


第 5 章 切 比 雪夫 谱 方 法 


将 式 “(5-51) 拓展 到 二 维 空间 ， 二 维 无 限 深 方 势 阱 中 的 定 态 本 定 旭 方 程 为 (采用 目 然 


ジグ 
_ 侯 2 2 
i ーーー (ai +m) 


=m| 学 GrD mm 学 ( + 


根据 边界 条 件 ， 式 (5-53) 的 矩阵 形式 可 写 为 : 


Li yp 店 A yp 


($5-53) 


($-54 ) 


($5-55) 


其 中 ，(NV-1) 维 向 量 站 由 式 (5-31) 定义 ， 和 矩阵 形式 的 拉 普 拉 斯 算 符 由 式 ($-34) 定 


。 计 算 该 矩阵 的 特征 值 和 特征 函数 ， 代 人 码 如 下 : 


程序 5-16 


clear all: close all: 

L=2; N=20; 

% 构 造 拉 普 拉 斯 算 符 和 矩阵 

[D,x|=cheb(N); D=D/(L/2): D2=D^2: 
D2=D2(2:N,2:N): x=L/2*x; y=X; 
I=eye(N-1); LA=kron(L,D2)+kron(D2,I); 

% 求 解 

IVE ビ eig(LA): E=diag(E); 
|elgenvalues,1| ビ =sort(real(E),descend): V=V(:,1); 
% 画 图 

x2=-L/2:0.08:L/2; y2=x2; 
[py,px|]=meshgrid(0.75:-0.25:0,0:0.25:0.75); 
for n=1:16 


subplot('position',[px(n)+0.04 py(n)+0.01 0.17 0.221); 


V=Zeros(N+1); v(2:N,2:N)=reshape( V(:,n),N-1,N-1): 
vV2=interp2(x,y,V,x2,y2',cubic ): 
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mesh(x2,y2,v2), hold on, view(35,20), axls off 
axls(|-1.1 1.1 -1.1 1.1 -0.2 0.13]): 
contour3(x2,y2,vV2-0.2,|-0.2-eps -0.2+eps|]) 
m デ ーelgenVvalues(n)“4/p1^2: 

text(0,-2.4.0.3,| 一 num2str(m) Npi“2/4"]); 


end 


前 16 个 计算 结果 如 图 5-19 所 示 : 每 个 特征 函数 下 面 都 有 对 应 于 w=0 的 等 高 线 图 ， 每 
幅 小 图 的 左上 角 都 标 有 相应 的 特征 值 ， 这 些 计 算 结 果 与 精确 解 一 致 。 


-272/4 -ST2/4 A -ST2/4 
ON SN 
A AN 
A < の / N 
Serv AN WW 9 1 NN 
RR TT NN NN HN / XX NR No 
NN < 2 NX N 2 NO 
ん ンジ 0 ころ 
NN 2 < 
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RO 0 OO NN NY J WW UN < el) Wi 以 Wh | 从 る MM > 
NO RN 让 人 jy \ UN i < MM Wy 
りー 人 yy NN NN NN » W W vy Wy RN 作风 
ー17 ァ 4 ー-17z74 x ー18 ツ 4 ー-20z グ 4 
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か 人 0 人 人 7 が AN 人 人 ON 4 
NLP / 全 W 7 ケア KNY 7 AA N > アア A | 
A gl | 00 < dD (Wy MM NV 
0 / リマ WV VU 


あっ 


-25T2/4 -25ST2/4 从 -267r2/4 A 
RR ， 内 MM 
が | fi (HN 人 4 fy (A 
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图 5-19 三维 无 限 深 方 势 阱 中 粒子 波 函 数 的 特征 值 和 特征 函数 


3.3” 话 依 曼 边 界 条 件 (第 二 类 边界 条 件 ) 


诡 依 受 边界 条 件 (Neumann boundary condition )， 又 称 为 第 二 类 边界 条 件 ， 它 给 出 了 未 
知 函 数 在 边界 上 的 法 线 方向 的 导数 值 。 即 : 6wBnlso=g， 其 中 ，69 为 计算 区 域 2 的 边界 ， 
于 为 边界 的 旋 问 ，g 为 已 知 函 数 。 
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5.3.1 一 维 泊 松 方程 


芳 夸 有 如 下 边界 条 件 的 一 维 油 松 方程 : 
u'= f(x), ー] <x<1. u' (1)=u(-1) =0 (5-56) 


将 x 和 分 别离 散 化 为 N+1 维 向 量 x=(xo, xi, ,xm 和 w=(wo, U1, .…, UN) 。 注 意 xw=-1、 
xo=1, 因为 切 比 雪夫 点 的 坐标 是 由 大 到 小 排列 的 针对 在 左边 界 的 狄 利 元 闻 边界 条 件 un=0， 
可 用 图 5-6 所 示 的 方法 修改 矩阵 Ds。 人 针对 在 右边 界 的 话 依 曼 边 界 条 件 ， 可 将 矩阵 Ds 的 第 
一 行 叔 换 为 の 的 第 一 行 , 如 图 5-20 所 示 。 修改 后 的 矩阵 が 与 向 量 z 相乗 所 得 向 量 的 第 一 


个 元 素 将 是 Co)。 


uo 
f(x1) Ul 
Dy Dx 
7 (YA_i) UN-1 
A (xy UN 0 


图 5-20 ”在 狄 利 元 瑟 边 界 条 件 u(-1)=0 和 访 依 曼 边 界 条 件 (1)=0 下 修改 切 比 雪夫 求 叶 算 阵 


在 Di 上 加 “-” 代 表 经 过 上 述 修改 的 切 比 雪夫 求 导 和 矩阵， 在 f 上 加 “-” 代 表 删 去 癌 量 
拍 ( Gx0), 了 001), .… 了 (xw)) 的 最 后 一 个 元 素 ( 狄 利克 莱 边 界 条 件 ) 并 将 其 第 一 个 元 素 蔡 换 为 
函数 在 右边 界 处 的 导数 值 w(x0)=u(1)=0( 诺 依 曼 边界 条 件 )。 求 解 式 (5-56)， 只 需 : 


Unxi = (去 ) fa (5-57) 


最 后 在 V 维 问 量 去 的 末尾 补 0。 
在 切 比 雪夫 求 导 乍 阵 上 乘 以 缩放 因子 可 将 上 述 方法 推广 至 任意 区 间 ， 以 下 面 的 一 维 泊 
松 方程 为 例 : 


7 三 C 。 -2 フ < テ <2. u'(2)=u(-2) =0 (5-58) 
其 精确 解 为 : =e"-ex-e -2e*。 计 算数 值 解 并 与 精确 解 比较 的 代码 如 下 : 


程序 S-17 


clear all: close all: 

L=4; N=17; 

% 构 造 切 比 雪夫 求 寻 窍 阵 

ID,x =cheb(N): D=D/(L/2): x=L/2*x; 
D2=D^22: D2(1,:)=D!(1,:); 


139 


Matlab 微分 方程 高 效 解 法 : 谱 方 法 原理 与 实现 


D2=D2(1:N,1:N); 

% 求 解 

fexp(x( 1:N)): f(1)=0; 

u=D2\f; u=[u;0|]; 
exact=exp(x)-exp(2)*x-exp(-2)-2*exp(2); 
error=abs(exact-u); 

% 画 関 

subplot(2,2,1 ) 

plot(x,exact,'k',x,u,'.r', MarkerSize',16,LineWidth',1.5) 
title(['Error {max}=' num2str(max(error))]), xlabel x, ylabel u 
subplot(2,2,2) 

plot(x,error,'.r','MarkerSize', 16) 


xlabel x, ylabel Error 


程序 输出 结果 如 图 5-21 所 示 ， 数 值 结果 与 精确 解 基本 吻合 ， 最 大 误差 在 10 数 
量 级 。 


Errormax=1.5277e-013 x 10-13 
9 2 
sa 
由” 
ー10 
S 2 1 
中 
二 | 
0.5 
ー20 
5 3 0@ = | 
X 


图 $-21 左 图 : 一 维 泊 松 方程 的 数值 解 〈( 点 ) 和 精确 解 〈( 曲线 )， 右 图 : 误 兰 分 布 


5.3.2 ”二 维 泊 松 方 程 


考 虐 如 下 二 駄 泊 松 方 可 : 


2 2 
人 に e+27 | 2csy<2 


Ox” の 
ou ou _ー 
| he I =0 ($-$9 ) 
sin (wy) 
に ーー 10 
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将 函数 w(x, 妇 离 散 化 为 (N+l) 维 向 量 z: 


($-60) 


U yuya = (Woo Dh UG Wh. 者 seo の a ) 
针对 在 x=-2 辺 界 和 y=-2 边界 处 的 狄 利 殉 且 边 界 条 件 ， 可 用 图 5-12 所 示 的 方法 修改 
拉 普 拉 斯 算 符 矩阵 下 〈 式 〈$-61)) 中 对 应 于 这 两 个 边界 的 行 。 


2 2 
A t=D ®t OD ($-61) 
针对 在 x=2 边界 和 y=2 边界 处 的 诡 依 紧 边 界 条 件 ， 需 要 将 5.3.1 小 市 的 方法 推广 到 二 
维 空间 。 先 将 0/0x、6/0y 写 为 矩阵 形式 万 、 太 : 


O 


as- > H:.= Dy ® hy (5-62) 
OH =7。 @ か の 363) 
Oy y N+l N 


并 把 五. 中 对 应 于 x=2 边界 的 行 禾 盖 到 拉 普 拉 斯 算 符 矩阵 工 相 应 的 位 置 ， 类 似 地 ， 把 五 ,中 
对 应 于 y=2 边界 的 行 履 新 到 拉 普 拉 斯 算 符 矩阵 工 相 应 的 位 置 。 在 拉 普 拉 斯 算 从 矩阵 上 加 
“-” 人 代表 其 经 过 了 上 述 修 改 ， 则 对 于 下 式 : 

=Lu (5-64) 


aa (N+1) xl 


可 知 问 量 f 中 对 应 于 x=-2 边界 和 y=-2 边界 的 元 素 ， 与 问 量 w 相应 位 置 的 元 素 相等 ， 癌 量 
中 对 应 于 x=2 边界 和 y=2 边界 的 元 素 ， 分 列 与 向 量 Hw 和 Hw 在 该 位 置 的 元 素 相 等 。 这 
样 ， 求 解 式 (5-59)， 只 和 需 : 


u ー ル 7 (5-65) 


(N+1) xl aa 


其 中 ， 向 量 f 为 离散 化 的 f(x, IF-sin[Cc+2) 0+D]， 它 上 面 的 “-” 代 表 对 其 做 如 下 修 
改 : 对 应 于 x=-2 边界 和 y=-2 边界 的 元 素 分 别 取 sin(xy)/10 和 0〔 狄 利克 羔 边 界 条 件 )， 对 
应 于 x=2 边界 和 y=2 边界 的 元 素 取 0〈 诺 依 曼 边 界 条 件 )。 

具体 代码 如 下 : 


程序 S-18 


clear all: close all: 

L=4; N=50; 

% 构 造 拉 普 拉 斯 算 符 矩阵 

ID,x cheb(N): x=L/2*x; y=X; 

[X,Y =meshgrid(x,y): 

X=X(:); Y=Y(:); D=D/(L/2); D2=D^2: 
I=eye(N+1); LA=kron(I,D2)+kron(D2.1): 
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% 修 改 拉 普 拉 斯 算 符 和 矩阵 

Hx=kron(D,I); Hy=kron(L,D); 

boundl=find(X==-L/2| マ Y==-L/2); 

bound2=find(X==L/2|Y==L/2); 

LA(bound1,:)=0: LA(bound1.,bound1 )=eye(2*N+1); 

LA(bound2,:)repmat(X(bound2)==L/2,1,(N 二 1)22).*Hx(bound2,:) ... 
+repmat(Y(bound2 )==L/2,1,(N+1)“2).*Hy(bound2,: ); 

% 边 界 条 件 

f=-sin((X+2).^2.*(Y+1)); 

{t( | bound1:bound2 |) モ 0: 

f(bound1)=(X(bound1)==-L/2).*sin(p1*Y (bound1 ))/10: 

% 求 解 

u=LA\f; u=reshape(UN+1,N+]); 

% 画 图 

x2=ーL/2:0.05:L/2: y2=x2; 

u2=interp2(x,y,u,x2,y2','cubic'"); 

mesh(x2,y2,u2), view(-25,45) 

xlabel x, ylabel y, zlabel u 

axis([-2 2 -2 2 -0.1 0.3]) 


程序 运行 结果 如 图 5-22 所 示 。 


2 DT 
”AM 
2 


ーー ニー ニー 


MN いい 
いい いい いい 
いい い 


\ 
いい 
\ 


ーー ニー ンク グン ンー ンー 
ト 


图 5-22 二 维 泊 松 方程 的 解 
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5.3.3 ”一 维 热传导 方程 


设 函 数 u(x) 在 切 比 雪夫 点 x=(xo, xz ,xm 处 的 取 值 为 向 量 w=(wo, wi, ..., Un) 。 如 
果 诡 依 曼 边界 条 件 仅 约束 了 w'(1) 的 值 (x=-1 处 为 其 他 边界 条 件 ， 如 狄 利 克 羔 边界 条 
件 ), 有 : 


(1) =(( の 、)。 (の ,) 上 (Dy or) a (の )。6 (の) 。 (の )。 (Dy),,) 
(5-66) 


| 
Ce ((。)。 (の 。)。 0 (Dx ox) 4 (5-67) 
Un 
类 似 地 ， 如 果 诺 依 曼 边 界 条 件 同 时 约束 了 (は 1) 的 値 , 有 : 
Uo 
be -ey (Dy), | | 
uw'(—1) (の 。)、。 (Dv) (Dv) 
Un 
(5-68) 
Ul 
PE 的 (の Dy J (の の 
(Dy 0 (Dv) Un (の )。」 (Dy ) (Dy cn 
4y_」 
在 (上 1)=0 条件 下 , (uo, Un 与 (1 ww, ..., 要) 关系 为 : 
Ul 
-> al i 2 _ Ne 有 (5-69) 
Uy (Dy 0 (Dy NN (Dv) (Dy ),, 人 (の 
UN-l 


其 中 ) tuo=u(1); uy=u(-1)。 

式 (5-67) 和 式 ($-69) 的 意义 在 于 : 将 边界 条 件 (1)=0 或 (1)=0 转化 为 对 (1) 
或 (1) 的 釣 東条 件 , 这 样 束 可 以 直接 处 理 单 边界 或 双边 界 上 的 话 依 曼 边界 条 件 了 。 以 一 维 
热传导 方程 为 例 : 
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一 二 一 一 —l<x<l 
CL _0 ($-70 ) 
ul _, 二 1 十 cos (zx ) 


上 式 揪 述 了 均匀 细 杆 上 的 热传导 过 程 ，wu 代表 温度 分 布 , 7 代表 时 间 ，x 代表 村 上 的 坐 


标 ， 诡 依 受 边界 条 件 6w6xl,-:i=0 代表 边界 是 绝热 的 。 可 以 预料 ， 知 时 间 上 足够 长 ， 杆 上 的 
温度 将 处 处 相等 。 
容易 知道 ， 边 界 条 件 可 等 价 写 为 : 
号 | 中 _ 
Fy Ot \Ox)| _, 人 
Be > _ $=7 
ox a 


4 在 边界 处 的 二 阶 混合 俩 导数 6(6w6xry/6t= 显然 是 连续 的 ,是 由 物理 意义 可 知 0w/6th=4 
也 是 连续 的 ， 所 以 xz 的 二 阶 混 合 俩 导数 的 求 导 次 序 可 以 在 边界 处 交换 《证 明 从 略 ): 


| 
ot Or Ox \ot 
那么 ， 式 《5-70〉 可 等 价 写 为 式 〈《5-73)。 初 始 条 件 已 经 包含 6u/6x|x-414-0=0， 这 里 无 
需 重 复 。 


=0 (3=72.) 


X= 土 ] 


X= 土 ] 


2 
Y=, —]<x<l 
A 


多 [名 
Ox \ot 


uo 一 ] 十 cos (zx ) 


ー() (5-73) 


メニ ニキ] 


上 式 中 的 6/6t 可 用 ode45 函数 计算 ，6%6x* 用 矩阵 D; 计算 ， 根据 式 (5-69) 人 处理 诺 依 曼 边 
界 条 件 ( 处 理 时 将 6w/61 看 做 w)， 代 码 如 下 : 


程序 S-19 
主 程序 代码 如 下 : 


clear all: close all: 

L=2; N=20; 

% 构 造 切 比 雪夫 求 寻 窍 阵 
ID,x ビ cheb(N): D=D/(L/2): 
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D2=D^2: x ニ L/2*x・ 

% 初 始 条 件 

u=l+cos(pi*x); 

% 诺 依 曼 边 界 条 件 

BC=-D([1 N+1],[1 NT1]AD([1 N+1],2:N); 
% 求 解 

t=0:0.01:0.4; 
[t,usol]=ode45('heat1D',t,u,[],N,D2,BC); 
% 画 图 

X=L/2:-0.05:-L/2; 
u=interp2(x,t,usol,X,t,'cubic'); 
waterfall(X,t,u) 

xlabel x, ylabel t, zlabel u 

axis([-1 1 0 0.402]) 


文件 heat1D.m 代価 如 下 : 

function du=heatl D(t,u,dummy,N,D2,BC) 
du=D2*u; 

du([l N+1|])=BC*du(2:N); 


输出 结果 如 图 5-23 所 示 : 1=0 时 刻 杆 上 的 温度 分 布 极 不 均匀 ， 随 着 1 的 增加 ， 热 量 从 
高温 部 分 扩散 到 低温 部 分 ， 杆 上 各 处 温度 趋 于 某 一 定 值 。 由 于 两 端 绝 热 (22 に 0), u 
对 x 在 [-1, 1] 上 的 积分 结果 不 随 1 变化 。 


图 5-23 ”两 端 绝热 条 件 下 一 维 热传导 方程 的 解 
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5.3.4 一 维 小 动 方程 


考虑 如 下 的 二 维 波动 方程 : 


ul = 


可 认为 上 式 描述 了 水 的 波动 过 程 


00200 9 
22 lg ag の 2 
y 


-8 (x+1.5) "+y° | 


ー3 う くん ぐ 3。 一 トマ ャ で <] 


中 = 可 ($-74) 
Ou __9 の % 
ーー Oto Kho 


u(x, y, 四) 是 水 面 局 度 的 分 布 ，x、y 是 空间 坐标 ，1 是 时 


回 。 在 =3 边界 处 采用 了 周期 性 边界 条 件 ， 这 代表 从 x=3 边界 流出 的 水 将 从 x=-3 边界 流 
入 ， 反 之 亦 然 。 在 bF1 边界 处 采用 了 诺 依 曼 边界 条 件 ，6waylri=0 代表 水 不 能 从 bj=1I 处 流 


入 或 流出 。 


由 初始 条 件 可 知 Gw6ylwruros0 ， 此 可 将 边界 条 件 GwBylyr0 等 价 地 写 为 
6(6u/6y)/6tjy=1=0。 义 由 它 的 连续 性 ， 所 以 可 交换 求 导 顺 序 ， 等 价 写 为 6(6u/61)/6y|jy-1=0。 然 
后 ， 引 入 函数 v(x, y, =Ou(x, y, ?)/6t， 将 式 (5-74) 中 的 6%/6r 降 为 6/6t， 得 到 : 


OU _ 
= うく くう 3。 一 < 了 <]1 
Ov_ の の 
ot or の 2 
ov 
ーー ー 0， Ul =U 
Oy 中 韻 3 
8 (HL5) +y? | Ou 
uo = ， 村 ー 0 


用 ode45 计算 上 式 中 的 6/60t。 此 外 ， 由 于 |x|=3 处 存在 周期 性 边界 条 件 ， 所 以 可 使 用 谱 
求 本 矩阵 计算 x 方向 上 的 导数 。 对 于 by|=1 边界 处 的 诡 依 曼 边 界 条 件 ， 这 里 使 用 切 比 雪夫 求 


导 和 矩阵 计算 了 方向 上 的 导数 ， 并 根据 式 〈5-69) 处 理 GwaeylwFi=0。 代 码 如 下 : 


程序 5-20 


主 程序 代码 如 下 : 

clear all: close all: 

%x 方 同 

Lx=6; Nx=50; 
x=Lx/Nx*[-Nx/2:Nx/2-11'; 


h=2*p1/Nx; column=[0 0.2*(-1).^(1:Nx-1).*cot((1:Nx-1)*h22)|: 
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Dx=(2*p1/Lx)*toeplitz(column,column([1 Nx:-1:21)); 
column=[-pi*2/(3*h^2)-1/6 -0.5*(—1).^(1:Nx-1)./sin(h*(1:Nx-1)/2).2]; 
D2x=(2*pi/Lx)^2*toeplitz(column ): 

9%y 方 回 

Ly=2; Ny=20; [Dy,y]=cheb(Ny); 

Dy=Dy/(Ly/2); D2y=Dy"“2; y=Ly/2*y; 

% 诡 依 曼 边界 条 件 

BCy=ー-Dy([1 Ny+11],[1 NyT1IADy([1 Ny+1],2:Ny); 
% 初 始 条件 

[X,Y meshgrid(x,y): 

u=exp(—8*((X+1.5).^2+Y.^2)); 

Vv=—Uu* DxX'; 

uv=[u(:); v(:)]; 

% 求 解 

t=0:2:4: 

[tuvsollj=ode43(wave tank',t,uv,|[|,Nx,Ny,D2x,D2y,BCy); 
% 画 图 

for n=1:3 

subplot(3,1.n) 

u=reshape(uVsol(n,1 :end/2),Ny 填 1,Nx): 

mesh( x,y,u), view(-10,60), grid off 

title(['t=' num2str(t(n))|) 

xlabel x, ylabel y zlabel u 

axis([-3 3 -1 1 -0.13 1]) 


end 


文件 wave tankm 代码 如 下 : 

function duv=wave tank(t,uv,dummy,Nx,Ny,D2x,D2y,BCy) 
u=reshape(uv(1:end/2),Ny+1,Nx); 
v=reshape(uv(end/2+1:end),Ny+1,Nx); 

% 诡 依 曼 边界 条 件 

vV(I1 Ny+1],:)=BCy*v(2:Ny,:); 

duv=[v(:); reshape(u* D2x'+D2y*u,Nx*(Ny+1),1)]; 


计算 结果 如 图 5-24 所 示 ， 边 办 b=1 像 “ 水 池 壁 ”一 样 将 “水 ”挡住 。 方 程式 (5-74) 
来 源 于 文献 [2]， 这 里 使 用 了 比 文献 [2] 更 精确 的 方法 ， 有 兴趣 的 读者 可 以 比较 一 下 两 种 方法 
的 差异 。 
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~~ ご > Es. i ニー, 
四 < の RE = ニニ ニニ ニニ ニー ニニ ニニ ニニ = 
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Ew. em a, テニ キキ ーー ルル EE 
= ここ こさ 


< て へ て > 


ンー ンジ 


2 


图 5-24 ”二 维 波 动 方程 的 解 ，xl=3 边界 处 采用 了 周期 性 边界 条 件 ，|y|=1 边界 
处 采用 了 诺 依 曼 边 界 条 件 Ou/6yljy-1=0 


5.3.5 ”一 维 四 阶 问题 


一 维 双 调和 问题 (biharmonic problem) 的 形式 如 下 : 


2 "= 了 (xz)， —l<x<l, u(+1)=w'(+1) =0 (5-76) 


求解 上 式 的 难点 在 于 边界 条 件 既 规定 了 uw( キ 1)=0 同时 又 要 求 w'(+1)=0。 为 了 人 简化 这 一 
复杂 的 边界 条 件 ， 将 u(x) 的 插值 函数 p(x) 写 为 ; 


p(x)=(1-x?)a(x); ー1<x<1 577) 
其 中 ，g(x) 在 边界 处 取 值 为 0, 即 g( キ 1)=0。 容易 知道 , 上 式 定 叉 的 p(x) 必 满足 
D(+l)=P'( 二 ID)=0。 这 样 承 将 插值 函数 p(x) 的 复杂 边界 条 件 简 化 为 py) 的 荻 利 克 菜 辺 界 


条 件 。 
対 式 ($-77) 求 4 阶 导数 并 代入 2)=p(x)/(1-* の , 得 : 


GO)=(- の erG9-eer(9- 76 
=| (1-x)-d’ /de’ -sxrd7/de -12./dx’ |.9(x) (5778) 
ee -aa 
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那么 ， 对 p(x) 求 4 阶 导 数 的 运算 可 写 为 矩阵 形式 : 

d‘/dx' 3D, = | diag(1-¥°) D4 ~8diag(x) DY -12 が |diag( (1- ダ )) (5-79) 
其 中 , 函数 diag 表示 将 向 量 转化 为 对 角 和 矩阵 ， 向 量 x 代表 (xo, xz .…, xw) 。 此 外 ， 向 量 1-x* 
代表 (1 ,1x , ..., 1-%) ， 向 量 1/(1-* う 代表 (1/(1-), IT- .…, 1/(1-x)) '。“~” 表 示 删 


除 癌 量 的 肯 尾 元 系 以 及 删除 答 阵 站 尾行 、 冯 尾 列 。 根 据 式 (5-79)， 可 将 式 (5-76) 号 妨 生 
阵 形 式 : 


Lii= f(x) (5-80) 
求解 上 式 只 需求 解 : 
メニ, / (て ) (5-81) 
并 在 得 到 的 向 量 站 的 首尾 补 0。 
以 下 面 的 双 调 和 方程 为 例 : 
u”""=sin(nx), —l<x<l, u(+1)=w(+1)=0 (5-82) 


接 下 来 求 它 的 数值 解 ， 并 与 其 精确 解 u=sin(xx)yx + x)/27 比较 。 代 码 如 下 : 


程序 5-21 


clear all: close all: 

L=2; N=24; 

% 构 造 切 比 雪夫 求 寻 窍 阵 

ID,x cheb(N): D=D/(L/2); 
D4=(diag(1-x.^2)*D^4-diag(8*x)*D^3-12*D^2) ま diag(|1.7(1-x.^2)|): 
D4=D4(2:N,2:N): 

% 求 解 

f=sin(p1*x(2:N)); u=[0;DAE;O0]; 

% 画 图 

exact=sin(pi*x)/pi^4+(x.^3-x)./(2*pi^3); 
error=abs(exact-u); 

subplot(2,2,1) 

plot(x,exact,'k',x,u,'.r','MarkerSize', 15,'LineWidth',1.5) 


title(['Error {max}=' num2str(max(error))]) 


xlabel x,ylabel u 
subplot(2,2,2) 
plot(x,error, .r , MarkerSize',15) 


xlabel x,ylabel Error 


结果 如 图 5-25 所 示 , N=24 时 的 最 大 误差 在 10 数量 级 。 
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Errormax=1.6324e—015 


X 103 x 10~ 
5 2.5 
2 
。 1.5 
= 0 に 
口 
] 
0.5 
一 人 0 
ー1 ー0.3 0 0.3 1 一 ] ー0.$ 0 0.3 1 
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图 5-25 左 図 : 双 调 和 方程 的 数值 解 〈 点 ) 和 解析 解 ( 线 )， 右 图 : 误差 分 布 
类 似 地 ， 若 双 调 和 问题 (5-76) 的 计算 区 间 为 [-L/2 L/2]， 只 需 将 式 (5-77) 中 的 1-x* 
改 为 LY/4-x， 并 对 Dy 做 相应 的 缩放 即 可 。 
5.3.6 ”二 维 四 阶 问 题 


考虑 二 维 双 调和 复 符 的 特征 值 问题 : 


A“u = Au, —l<x,y<!l 


ul = =0 (5-83) 
Ou _ Ou 
Ore の 
其 中 ， 二 维 双 调和 算 符 A“ 王 (8 +0:》=0:+20:G+0:。 由 于 上 式 的 边界 条 件 与 式 (5-76) 的 边 
界 条 件 一 致 ， 所 以 可 直接 将 式 〈5-79) 应 用 到 二 维 双 调和 算 符 的 矩阵 形式 中 ， 有 : 
ND +2(D, OI (ni ED I OL (5-84) 


用 eig 糸数 求 解 協定 隆 的 特 征 信 和 特 征 函 数 的 代 偶 如 下 : 


程序 5-22 


clear all: close all: 

L=2; N=25; 

% 二 维 双 调 和 算 符 矩阵 

ID,x cheb(N): x=L/2*x; y=X; 

D=D/(L/2); D2=D^2; D2=D2(2:N,2:N); 
D4=(diag(l1-x.“2)*D^“4-diag(8*x)*D^3-12*D“2)*diag([ 1./(1-x.“2)]); 
D4=D4(2:N,2:N); [=eye(N-1); 
LA2=kron(D4,1)+2*kron(D2,1)*kron(1,D2)+kron(1,D4); 
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% 求 解 

|VD ビ elg(LA2): D=diag(real(D)): 

[eigenvalues,1|=sort(D); V テ real( V(:,1)); 

% 画 图 

X2=-1.08:0.08:1.08; y2=x2; 

[py,px]=meshgrid(0.8:-0.2:0,0:0.2:0.8); 

for n=1:25 
subplot('position',[px(n)+0.02 py(n)+0.01 0.15 0.2]); 
V=Zeros(N+1,N+1); v(2:N,2:N)=reshape(V(:,n),N- LN-1); 
V2=1nterp2(X,y,V,X2,y2','cubic'); 
mesh(x2,y2,v2), hold on, axis off 
contour3(x2,y2,v2-0.25,[-0.25-eps -0.23+eps]) 
text(0.7,0,0.13,sprintf('%. 1f',eigenvalues(n))) 
axis([-1 1 -1 1 -0.25 0.1]) 


end 


程序 输出 结果 如 图 5-26 所 示 , 每 幅 小 图 的 右上 角 都 标 有 特征 值 , 并 给 出 了 相应 的 特征 
图 数 的 立体 赂 ， 其 下 方 是 w=0 的 等 融 线 图 。 
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5.4 洛 平 边界 条 件 《〈 第 三 类 边界 条 件 ) 


洛 平 辺 界 条 件 (Robin boundary condition)， 又 称 为 第 三 类 边界 条 件 或 混合 边界 条 件 ， 
它 给 出 了 在 边界 处 未 知 函 数 和 它 在 法 线 方 癌 上 导数 的 线性 组 合 的 值 。 即 : Gu+h9u/on) lesa=g, 
其 中 ，62 为 计算 区 域 8 的 边界 ，n 为 边界 的 法 向 ，g 为 已 知 函 数 。 


5.4.1 一 维 泊 松 方程 


考虑 具有 洛 平 边界 条 件 的 一 维 泊 松 问题 : 


uw" = f(x), <x<l, u(t+l)+hu'(+1)=g(+t1) (5-85) 


先 将 x 和 分别 离散 化 为 N+1 维 向 量 x=(xzo xz .……。 XN) 和 w=(wuo, U1, ..., UNv) 。 针 对 
两 端 边 界 的 洛 平 边界 条 件 ， 需 要 综合 图 5-8 及 图 5-20 所 示 的 方法 修改 矩阵 Dy 。 如 图 
5-27 所 示 : 取出 矩阵 7 の 的 痛 ( 尾 ) 行 , 在 基 首 ( 尾 ) 元 奈 上 加 1， 然 后 登 换 到 矩阵 
Ds 的 省 ( 尾 ) 行 处 。 这 样 修改 后 的 矩阵 Dx 与 问 量 z 相乗 所 得 向 量 的 首尾 元素 閣 直 


uothu'(xo) fl 7 (xy) 。 


ーーー ニー "| 
il 0 0O 0O 0O 0 a 

| 
| 十 | 

| 
| 

| 
mm | | 
7) wl | ーーーーーーーーーーーーーー 

= Dy h Dy 
f (xN_1) UN_l 


es | 
uvthu'(xw) UN | | 
| 
I + 
| 
| ee 
| 
| 


图 5-27 在 洛 平 矢 界 条 件 下 修 改 切 比 雪夫 求 知 降 


在 Dy 上 加 两 个 “-” 代 表 经 过 上 述 修改 的 切 比 雪夫 求 导 和 矩阵 ， 在 f 上 加 两 个 “-” 代 表 
将 向 量 f=(f (x0), f(x1), .…, 了 (xv)) 的 首尾 元素 分 別 替 換 妨 uothu'(xo) 和 (xy) 的 値 ( 洛 平 
边界 条 件 )。 那 么 ， 求 解 式 “5-85)， 只 和 需 : 


UN = (が ) he (5-86) 


在 切 比 雪夫 求 导 乍 阵 上 乘 以 缩放 因子 可 将 上 述 方法 推广 至 任意 区 间 ， 以 下 面 的 一 维 泊 
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松 方程 为 例 : 


u"=e”, -2<x<2, (u+2w)| =1 (5-87) 


根据 式 (5-86) 求解 ， 并 与 其 解析 解 w=e*+3(e *-e*)x/4-3e “+1 比较 ， 代 码 如 下 : 
程序 S-23 


clear all: close all: 

L=4; N=18; h=2; 

% 构 造 切 比 雪夫 求 寻 窍 阵 并 修改 

[D,x]=cheb(N); D=D/(L/2); x=L/2*x; 

D2=D^2; I[=eye(N+1); 

D2([1 N+1],:)=h*D([1 N+1],:)+I([1l N+1],:); 

% 求 解 

f=exp(x(1:N+1)); t(|1 N+1])=1; u=D2\f; 

% 画 関 
exact=exp(x)†+3/4*(exp(-2)-exp(2))*x+1-3*exp(-2); 
error=abs(exact-u); 

subplot(2,2,1) 

plot(x,exact,'k',x,u,'.r', MarkerSize',16,LineWidth',1.5) 
title(['Error {max}+=' num2str(max(error))]), xlabel x, ylabel u 
subplot(2,2,2) 


plot(x,error, .r , MarkerSize',16) 


xlabel x, ylabel Error 


程序 输出 结果 如 图 5-28 所 示 : 左 图 中 ， 点 表示 计算 得 到 的 数值 解 ， 线 表示 解析 解 ， 二 
者 吻合 得 很 好 。 右 图 为 误差 分 布 ，N=18 时 ， 最 大 误差 仅 在 10 “级 。 


Errormax=2.3448e—013 x 10-B 
15 2.5 
2 
10 
。 5 
3S 5 3 
円 1 
0 
0.5 
一 人 0 
一 -| 0 1 2 ー2 ー1 0 ] 2 
人 X 


图 5-28 左 图 : 洛 平 边 界 条 件 下 一 维 汝 松 问 题 的 数值 解 《 点 ) 和 解析 解 〈 线 )， 石 图 : 误 闫 分 布 
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5.4.2 ”二 维 泊 松 方程 


考虑 如 下 二 维 油 松 方程 : 


8* 0 0 u=sin| ( (x+5)( )(y+2)|, = ベス 2 
Ox” の 2 


(5-88 ) 
i a Cr 
将 函数 u(x,y) 离 散 化 为 (N+1) 维 向 量 u: 
aa = ( 60 人 i (5-89) 
洛 平 边 界 条 件 的 矩阵 形式 R 和 R, 如 下 ， 其 中 Iwy 为 N 阶 单位 矩阵 : 
ut he > Rp =| Tey +h(Dy Ton) uy (5-90) 
+ 4 Da = eo +h(Ty ® Dy ) Wi yyy (5=91) 


在 此 需要 把 5.4.1 小 市 的 方法 推广 到 二 维 情 况 。 即 ; 将 矩阵 R 和 R, 中 分 别 对 应 于 边界 
X=2 和 边界 [y=2 的 行夫 換 色 拉 普 拉 新 算 符 邊 降 ( 式 (5-92)) 中 相应 的 位 置 。 


2 
A= ちっ テー DOI + 7 ⑨ の 2 (5-92) 


企ん 上 面 加 2 人 パー" 代表 修 改 后 的 拉 普 拉 新 算 符 知 降 , 履 久 , 求 解 式 (5-88) 只 需 : 


厂 (5-93) 


"da ー ma 


其 中 , 向 量 / 妨 高 散 化 的 /(, 力 =sin[Cc+S)O+2)]， 它 上 面 的 2 个 “-” 代 表 对 其 做 如 下 修改 : 
在 边界 |x|=2 和 边界 |y|=2 处 的 元 素 取 1《〈 根 据 洛 平 边 界 条 件 )。 
具体 代码 如 下 : 


程序 S-24 


clear all: close all: 

L=4; N=40: h=0.1: 

% 构 造 拉 普 拉 斯 算 符 和 矩阵 

ID,x cheb(N): x=L/2*x; y=X; 

[X,Y meshgrid(x,y): 

X=X(:); Y=Y(:); D=D/(L/2); D2=D^2: 
I=eye(N+1); LA=kron(L,D2)+kron(D2,I); 
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% 修 改 拉 普 拉 斯 算 符 和 矩阵 

Hx=kron(D,I); Hy=kron(L,D); 
boundl=find(X==L/2|X ベ ==-L/2); 
bound2=find(Y==L/2| Y==-L/2); 
I=eye((N+1)°2); 

LA(bound1,:) モ 1(bound1.:)+h*Hx(bound1,:): 
LA(bound2,: )=I(bound2,: )+h*Hy(bound2,:); 
% 求 解 

f=sin((X+5).*(Y+2)); 

{f(|bound1:bound21) モ 1: 

u=LA\f; u=reshape(u,N+1,N+1); 

% 画 图 

x2=ーL/2:0.05:L/2: y2=x2:; 
u2=interp2(x,y,u,x2,y2"','cubic'"); 
mesh(x2,y2,u2), view(-25,45) 

xlabel x, ylabel y, zlabel u 

% 人 边界 误 产 

Ex=u(:)+h*Hx*u(:)-1; max(abs(Ex(bound1))) 
Ey=u(:)+h*Hy*u(:)-1; max(abs(Ey(bound2))) 


计算 结果 如 图 5-29 所 示 。 程 序 最 后 输出 数值 解 在 边界 |x|=2 和 边界 |y|=2 处 的 最 大 误差 
分 别 为 1.3778x10 和 1.5851x10 1。 


AR 
1.04 了 RN 家 
AANA 
SO 
NAN Te 
0.96J .. Wl NMM OU 
“WW: NO ON 
0.94 W MA 
DA 
WADE TN 
CR I 
W ーー ーーー [ 
MM グー ] J 
a ee 
ー1 和 3 0.5 
、、 二 0 
; 0.5 
ー1 
了 ー1.5 1 
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图 5-29 ”党 平 边界 条 件 下 二 维 泊 松 方 程 的 解 
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5.4.3 ”一 维 热传导 方程 


在 分 析 一 维 热传导 方程 的 解法 前 ， 先 把 洛 平 按 界 条 件 写 为 矩阵 形式 。 这 里 以 治平 边界 
条件 (ut か が k=0 为 例 ， 其 中 的 正 号 对 应 右边 界 ， 负 号 对 应 左边 界 。 那 么 可 将 其 写 为 : 


。 1 网 (5-94) 


设 函 数 w(x) 在 切 比 雪夫 点 x=(xo, xy .…, XN) 处 的 取 值 为 向 量 w=(wo, 1, …, Uw) 。 则 


有 : 
PH 网 (5-95) 
u(—1) 0 工 八 ZN 
将 式 〈5-95) 和 式 ($-68) 代入 式 (5-94), 整理 可 得 (uo, un)" 与 Co wz, …, uw1) 的 关 
系 : 


ei (5-96) 


至 此 , 洛 平 辺 界 条件 (| に 0 被 转化 成 了 对 uo 和 ww 的 约束 条 件 (5-96)， 该 式 可 
用 程序 容易 地 计算 。 处 理 (wthu 小 -#0 的 情况 与 之 类 似 ， 不 再 闭 述 。 
下 面 讨论 一 维 热传导 方程 : 
Ou _ Ou 


3 ー] こ ェ <]1 
X 


[e+ 多 -0 (5-97) 
ox 


Xx 二 二 1] 


Ws 二 1] 十 cos (x) 


上 式 揪 述 了 均匀 细 杆 上 的 热传导 过 程 ,wu 代表 温度 分 布 , 1 代表 时 间 , x 代表 杆 上 的 
坐标 ， 洛 平 边 界 条 件 代 表 杆 在 边界 处 是 目 由 冷却 的 。 所 谓 目 由 冷却 ， 是 指 杆 的 两 喘 己 周 
图 环境 根据 牛顿 冷却 定律 交换 热量 , 即 单 位 时 间 单 位 横 和 截面 积 从 边界 处 释放 的 热量 与 边 
界 和 外 界 的 温度 差 成 正比 。 由 此 可 以 得 到 (wth6u/6x)lw=v， 其 中 为 外 界 温度 , h 为 一 党 
数 ， 正 负 号 分 别 对 应 于 右边 界 和 左边 界 。 可 以 预料 ， 奉 时 间 上 足够 长 ， 杆 上 的 温度 将 处 
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处 趋 于 v。 

根据 方程 的 物理 意义 可 知 ，6u/6ty 和 6(6u/6x)/6tjy 均 是 连续 变化 的 ， 则 w 对 x 和 的 二 
阶 混 合 偏 导数 可 以 交换 求 导 顺序 (证 明 从 上 略 )， 即 6(Gu/6x)/6t=6(6u/6t)/6x。 所 以 式 (5-97) 
的 边界 条 件 可 等 价 写 为 : 


nd ou) 
ot Ox \ot = 
= 0 


=! [ 二 万 2 


(5-98) 


=0 
t=0 
X= 土 ] 


则 式 (5-97) 可 被 转化 为 如 下 形式 : 


2 
っ ー] こ ェ <1 
X 


Ga 
ot Or \ 7 


Zi =1+cos(nx) 


ー() (5-99 ) 


X= 土 ] 


接 下 来 束 可 以 利用 ode45 函数 计算 上 式 ， 根 据 式 “5-96〉 处理 其 中 的 边界 条 件 〈( 处 理 
时 需要 将 6w/6t 看 做 w)。 取 h=0.1， 代 码 如 下 : 

程序 5-25 

主 程序 代码 如 下 : 

clear all: close all: 

L=2: N=20: h=0.1: 

% 构 造 切 比 雪夫 求 导 和 窃 阵 

[D,x|=cheb(N); D=D/(L/2): 

D2=D^2: x ニ L/2*x・ 

% 初 始 条件 

u 三 1 十 COS(D1YX ); 

% 洛 平和 辺 界 条件 

A=h*[1 0;0 —1|:; 

BC=-(A*D([1 N+11,[1 N+1])+[1 0:0 1DNA*D([1 NT11,2:N)): 

% 求 解 

t=0:0.03:1.5; 

[t,usol]=ode45('heatlD',t,u,[],N,D2,BC); 
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% 画 图 

X=L/2:-0.05:-L/2; 
u=interp2(x,t,usol,X,t,'cubic"); 
waterfall(X,t,u) 

xlabel x, ylabel t, zlabel u 

axis([-1 1 0 1.5 02]),view(-130,30) 
% 误 甘 

E=usol+h*(D*usol)'; max(abs(E(:,1))) 


文件 heat1D.m 代码 如 下 : 

function du=heat1D(tudummyN,D2,BC) 
du=D2*u; 

du([l N+1|])=BC*du(2:N); 


输出 结果 如 图 5-30 所 示 ， 热 量 迅速 在 杆 上 扩散 开 来 ， 并 通过 边界 传递 到 外 界 ， 杆 两 端 
与 外 界 的 温差 越 小 ， 向 外 界 传递 热量 的 速度 也 就 越 慢 ， 最 终 整 个 杆 的 温度 将 趋 于 0。 数 值 
解 在 边界 处 的 最 大 误差 为 3.5111x10 “。 


图 $-30 ”两 端 边界 日 由 冷却 的 一 维 热传导 问题 的 解 


5.4.4 ”二 维 热传导 方程 


在 两 个 边界 分 别 采 用 洛 平 边界 条 件 (+pa)h=i=0 (hz#0) 和 话 依 曼 边界 条 件 zl 一 =0， 即 : 


第 5 章 切 比 雪夫 谱 方 法 


= (5-100) 
0 〆(-1)) 【0 

设 函 数 u(x) 在 切 比 雪夫 点 x=(xo, x1, …, xm 处 的 取 值 为 向 量 w=(wo, ui1, .…., Un) 。 与 
5.4.3 小 节 的 过 程 类 似 ， 整 理 可 得 (uo, xz 与 (1 1w, .…, UN1) 的 关系 : 


A rl Oo eo ot em 


这 样 就 把 边界 条 件 (x+Hpzl-i=0 和 に 0 转化 为 对 wo 和 uw 的 约束 条 件 ， 后 面 将 用 到 
这 二 和 系 5 
式 ($-102) 描述 了 三 维 热 传导 问题 ， 边 界 x=1 处 的 洛 平 边界 条 件 代 表 该 边界 是 自由 


冷却 的 ， 边 界 x=-1 和 边界 |y=1 处 的 话 依 曼 边 界 条 件 代 表 这 些 边界 是 绝热 的 。 
9 | の の _ 
を | る 雪上 1<r, 了 <1 
lt -0 Ou ou _0 (5-102) 
Ox x=1 Ox x=-1 oy y ド 1 


| 。= 1 十 cos(xx)||1 十 cos (ny) | 


与 一 维 热传导 方程 类 似 ， 为 了 能 用 ode45 函数 处 理 此 问题 ， 将 上 式 等 价 写 为 : 
ou | 9* 0- 本 
i + 1<x, y<1 
Ou ,, 0O {Ou ー の (9 _ の (の ー a 
(的 | > ee 0 (5 103) 


ul 。 = 1 十 cos(xx) || 1 十 cos(ny) | 


根 据 式 (5$-101) 处 理 边界 x=+1 处 的 洛 平 边界 条 件 和 话 依 曼 边 界 条 件 ， 根 据 式 
(5-69) 处 理 边 界 = ェ 1 处 的 谊 依 曼 边界 条 件 (人 处理 时 需要 将 Gu/6t 看 做 wu)。 取 h=0.1， 
代 偶 如 下 : 


程序 5-26 
主 程 序 代 偶 如 下 : 


clear all: close all: 
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L=2; N=20; h=0.1; 
% 构 造 切 比 雪夫 求 寻 窍 阵 
[D,x|=cheb(N); D=D/(L/2): 
D2=D’2; x=L/2*x; y=X; 
% 初 始 条件 
[X,Y meshgrid(x,y): 
u=(l+cos(pi*X)).*(1+cos(pi*Y)); 
% 边 界 条 件 
BCx=-(h*D([1 N+1],[1 N+1])+[1 0:0 OD\(h*D([1 N+1],2:N)): 
BCy=-D([1 N+1],[1 NT1]D([1 N+1],2:N); 
% 求 解 
t=[0 0.03 0.2 4|: 
[t,usol]=ode45('heat2D',t,u(:),[],N,D2,BCx,BCy); 
% 画 图 
for n=1:4 
subplot(2,2.n) 
u=reshape(usol(n,:),N 填 1,N+1): 


surfl(x,y,u), shading interp 
axis([-1 1 -1 1 0 4|), view(15,15) 
xlabel x, ylabel y zlabel u 
title(['t=' num2str(t(n))|) 

% 误 到 

E=h*u*D'+u; max(abs(E(:,1))) 


end 


文件 heat2D.m 代 偶 如 下 : 

function du=heat2D(tuu,dummy,N,D2.BCx,BCy) 
u= デ reshape(u,N 十 1 ,N 十 1 ): 

du=D2*u+u* D2": 

du([1 N+1],:)=BCy*du(2:N,:); 

du(:,[ 1 N+1])=du(:,2:N)*BCx'; 

du=du(:); 


计算 结果 如 图 5-31 所 示 , 热量 从 中 央 的 融 温 部 分 流 辣 四 周 的 低温 部 分 。 因 为 热量 只 能 
通过 边界 x=1 传递 到 外 界 , 而 其 他 3 个 绝热 边界 处 部 积累 了 热量 ,所 以 温度 普通 比 边界 x=1 
处 高 。 若 时 间 1 足够 长 , 各 处 温度 将 趋 于 0。 此 外 , 数值 解 在 边界 x=1 处 的 最 大 误差 在 10 “ 
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5-31 工人 个 边界 目 由 冷却 、 其 他 3 个 按 界 绝热 的 二 维 热传导 问题 的 解 


$.5 利用 切 比 雪夫 谱 方 法 求解 复杂 偶 敏 分 方程 “组 ) 


5.5.1 广义 特征 值 问 题 


标准 的 特征 值 问 题 形 如 下 式 : 
Au= Au (3$-104) 
其 中 , 4 为 已 知 方 阵 , w 为 未 知 非 零 向 量 , 4 为 未 知 常 数 。 使 上 式 成立 的 4 称 为 特征 值 ， 
相応 的 向 量 ヵ 称 訪 特 征 向 量 。 可 用 Matlab 的 eig 函数 求解 上 述 问题 的 特征 值 和 特征 问 量 ， 
调用 形式 为 eig(A)。 
而 广义 特征 值 问 题 的 形式 为 : 


Au= 1Bu (5-105) 
其 中 ,4 和 B 为 已 知 方 了 泗 , w 方 未知 非 宏 向 量 , 4 罰 未 知 常 数 。 使 上 式 成立 的 4 称 为 特 
伴 信 , 相応 的 向 量 z 称 为 特征 向 量 。 寿 方 阵 B 可 逆 ， 广 义 特 征 值 问题 可 化 为 式 (5-104) 
的 形式 , 即 : 


161 


Matlab 微分 方程 高 效 解 法 : 谱 方 法 原理 与 实现 


BAu=Au (5-106) 

但 这 人 么 做 既 不 简单 也 不 实用 ， 襄 且 方 阵 妇 也 未 必 是 可 逆 的 。 求 解 广义 特征 值 问题 

通常 选用 QZ 法 (QZ method)， 在 Matlab 中 的 调用 形式 为 eig(A,B)。 以 下 面 的 特征 值 
问题 为 例 : 


u"=Axu, -2<x<2, u(+2)=0 ($-107) 


用 N+1 维 癌 量 wx 代表 函数 u(x) 在 区 同 [-2, 2] 上 的 切 比 雪夫 点 x=(xo, X1, .…, xy) 处 的 取 
值 ， 删 去 其 首尾 元 素 得 到 A-1 维 向 量 ywx1。 则 式 《5-107) 的 矩阵 形式 为 : 


~ 


Diliy a = 4 diag (yt) Hyp ($-108) 


对 于 这 样 的 广义 特征 值 问题 ， 求 解 代码 如 下 : 
程序 S-27 


clear all: close all: 

L=4; N=40; 

% 构 造 切 比 雪夫 求 寻 窍 阵 

[D,x|=cheb(N); D=D/(L/2): 

D2=D^2; D2=D2(2:N,2:N); x=L/2*x; 

% 求 解 

|VE ビ eg(D2,diag(x(2:N))): E=diag(E); 

i=find(E>0); E=E(1); V=V(:,1); 

[eigenvalues,1|=sort(E); V=V(:,1); 

% 画 图 

x2ー-2:0.01:2: 

for n=1:9 
subplot(3,3,n) 
plot(x2,polyval(polyfit(x,[0;V(:,n);01],N),x2),'k',Line Width'", 1.5) 
title(num2str(eigenvalues(n))) 
axls([-2 2 -1.1 1.1]), xlabel x, ylabel u 


end 
程序 输出 了 前 9 个 下 特征 值 及 相应 的 特征 问 量 ， 如 图 5-32 所 示 。 


5.5.2 ”二 维 Barkley 模型 


在 前 而 章节 关于 含 时 间 题 的 实例 中 ,使 用 了 ode45 处 理 函 数 w 对 时 间 1 的 导数 0u/01。 
ode45 是 基于 4、5 阶 龙 格 - 库 塔 法 的 变 步 长 算法 , 可 以 根据 所 计算 方程 变化 的 快慢 自行 
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调整 步 长 ， 在 保证 误差 符合 要 求 的 前 所 下 尽 可 能 快 地 求解 问题 。 但 需要 将 w 的 边界 条 
件 转化 为 针对 6w6t 的 边界 条 件 ， 这 往往 要 求 u 的 三 阶 混合 偏 导数 9°w616x 可 以 交换 求 
导 有 顺序 。 实 际 上 ， 为 避免 这 一 人 不便， 还 可 以 使 用 欧 拉 法 处 理 导数 exw6t， 但 同时 市 来 了 
如 下 问题 : 运算 量 大 ， 精 度 低 ， 人 代码 略 索 ， 需 要 人 为 选取 合适 的 步 长 。 变 步 长 的 4、5 
阶 允 格 - 库 茜 法 和 欧 拉 法 各 有 利 葡 ,选取 哪 种 方法 应 根据 问题 具体 情况 、 计 算 机 配置 和 
个 人 吾 好 来 决定 。 


1.603 8.5394 21.031 
| 1 1 
0.5 0.5 0.5 
= 0 = 0 = 0 
_0.5 _0.5 _0.5 
| 本 | ー1 
= 0 2 = の 0 の 9 0 2 
X 入 X 
39.074 62.6685 91.8148 
1 1 1 
0.5 0.5 0.5 
っ 0 っ 0 っ 0 
_0.5 _0.5 _0.5 
ー1 | | 
0 2 に の 0 2 9 0 2 
X X X 
126.5126 166.7621 212.3631 
1 1 | 
0.5 0.5 0.5 
2 0 = 0 = 0 
_0.5 | _0.5 _0.5 
| es | ー1 
= 0 2 2 0 2 = の 0 2 
X 及 X 


图 5-32 广义 特征 值 问题 的 前 9 个 特征 值 和 特征 问 量 


下 面 以 数值 计算 反应 -扩散 系统 中 的 螺旋 波 为 例 讲 解 如 何 用 欧 拉 法 解决 舍 时 问题 .螺旋 
波 是 系统 远离 平衡 态 时 由 于 系统 目 组 织 形成 的 一 类 特殊 斑 图 。 在 B-Z 有 反应、 正在 聚集 的 烙 
性 毒 丙 、 铀 金 表 面 的 一 氧化 碳 氧 化 以 及 心脏 中 均 能 观测 到 螺旋 波 的 存在 。 描 述 螺旋 小 的 
Barkley 模型 为 : 


(5-109) 


其 中 , 和 YY 是 2 种 能 够 相互 转化 的 化 学 物质 的 浓度 ，1! 为 时 则 ，x、y 为 空间 坐标 ，4 为 扩 
散 系 数 ，a、b 和 = 为 系统 参数 。 
根据 欧 拉 法 ，6wak 和 6v/6t 表示 为 : 
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Ou 、 u(t+At)—u(t) 


ot Ai 
Ov V(t+At) -v(#) 
= Ai 


(5-110) 


在 二 维 区 域 的 切 比 雪夫 点 上 将 函数 7 ヽ Vv 离散 化 为 A+1 阶 方 阵 77(WT1)x(WT1) ヽ VON+T1)x(N+1)° 


利用 切 比 雪夫 求 导 矩阵 处 理 方程 中 的 扩散 项 (60%/0x*+0%/6y”)u， 即 : 


Oy’ NUUN+Dx(N+D) 


要 本 T 
っ [ N (ren ) | yr ( x ) 


(5-111) 


选取 计算 区 域 8 为 : -60<x, )y<60。 由 于 化 学 物质 在 边界 处 没有 进出 ， 所 以 边界 条 件 为 


Ou/6nlao=Ov/Onlao=0 ( ヵ 代表 边界 08 处 的 法 癌 )， 可 根据 式 (5-69) 处 理 该 诺 依 曼 边界 条 件 。 
参数 取 值 为 : 2=0.$, ヵ =0.01, 7=1.6, =0.02。 为 产生 螺旋 波 ， 需 要 将 两 种 化 学 物质 浓度 7、 
y 的 初始 状态 设置 为 在 空间 上 具有 3 个 不 同 值 0、0.5、1 的 浓度 梯度 的 状态 , 具体 参见 代码 。 


程序 $-28 


clear all: close all: 
L=120; N=90: 
% 构 造 切 比 雪夫 求 寻 窍 阵 
[D,x|=cheb(N); D=D/(L/2): D2=D^2: 
x=L/2*x; y=X; 
% 边 界 条 件 
BCx=-(D(|1 N+11.2:N))/(D(I1 N+1],[1 N+1])'"); 
BCy=ーD([1 N+1],[1 N+ ND N+1],2:N); 
% 初 始 条件 
u old=zeros(N+1,N+1); v old=u old: 
u old(N/2,1:N/2)=0.5; vV old(N/2,1:N/2) モ 0.3: 
u old(N/2-1,1:N/2)1: v old(N/2+1,1:N/2) モ 1: 
usol(:,:,1)=u old: vsol(:,:,1)=v old: 
% 求 解 
dt=0.002: epsilon=0.02: a=0.5: b=0.01: d=1.6; 
for n=1:3 

for m=1:2500 

u=u old+dt*(d*(u old*(D2')+D2*u old)+ .… 


1/epsilon*u old.*(1-u old).*(u old-(b+v old)/a)): 


v=v old+dt*(u old-v old): 


u([l N+1],:)=BCy*u(2:N,:); u(:,[l N+1])=u(:,2:N)*BCx; 
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V(I1 N+1],:)=BCy*v(2:N,:); v(:,[1 N+1])=v(:,2:N)*BCx; 
u old=u; V old=V: 
end 
usol(:,:,n+1)=u; Vsol(:。:。n 十 1 ) 三 V: 
end 
% 画 図 
for n=1:4 
subplot(2,2.n) 
gca=pcolor(x,y,usol(:,:,n)); 
set(gca,'LineStyle','none'), axis off 
shading nterp, aX1S Square 


end 


代码 中 选取 的 时 间 步 长 为 0.002， 每 前 进一步 ， 部 要 根据 边界 条 件 修正 入 在 边 
的 取 值 。 程 序 每 阳 5 个 单位 时 间 和 输出 一 幅 小 图 ， 如 图 5-33 所 示 。 


图 5-33 ”螺旋 波 的 产生 过 


5.5.3 ”二 维 平 流 - 扩 散 方 程 


4 革 给 出 了 在 周期 性 边界 条 件 下 求解 二 维 平流 -扩散 方程 的 方法 ,本 小 节 将 在 狄 利 元 
pe 有 兴趣 的 全 者 可 以 比较 它们 之 间 的 差异 。 


0@ _, 6” i OW の の の WO の 
oy ox Ox Oy 


(5-112) 
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上 式 为 二 维 平流 - 扩 敌 方程 ， 其 中 ，y、w 分 别 是 流 函 数 和 涡 量 ，x、y 为 空间 坐标 ，L 
是 时 间 , vy 为 常数 。 计 算 区 域 2 为 : -10<x, y<10， 边 界 条 件 为 wlao=w|lao=0。 用 切 比 雪夫 点 
在 计算 区 域 9 内 将 函数 wy、w 离散 化 为 N+1 阶 方 阵 ax)、 の wrDxrD > 式 (5-112) 
的 第 一 式 等 号 左 辺 的 9o/@7 可 用 ode45 函数 计算 ， 等 写 右 边 可 表示 为 矩阵 形式 (“~” 代 表 删 
除 自 尾行 月 尾 列 的 操作 ): 


上 2 」 記 2 Dv 5。) 
ye) (5 ) が yr | DY DN O(N) (Px (5-113) 


~ 


a 
WYN)x(N-1) (D, ) DIO NN) 


将 函数 w、o 的 离散 形式 由 方 阵 写 为 同 量 ， 并 根据 式 《5-34) 所 示 的 拉 普 拉 斯 算 符 矩 
阵 形式 ， 式 〈$-112) 的 第 二 式 可 表 为 : 


る ー1 
y (Bi BI tl DD) 6 (5-114) 


“RD 于 (N-1) xl 


取 v=0.001, 初始 条 件 w(x, y, 0)=sech[(x+2) タツ 20]+sech[G-2) サ 20], 求解 式 (5-112) 
代 信 如 下 : 


程序 $-29 


主 程序 代码 如 下 : 
clear all: close all: 
L=20: N=60; 
% 构 造 拉 普 拉 斯 算 符 矩阵 并 求 逆 
ID,x cheb(N): x=L/2*x; y=X; 
[X,Y meshgrid(x(2:N),y(2:N)): 
D=D/(L/2); D2=D^2: 
D=D(2:N,2:N): D2=D2(2:N,2:N): 
I=eye(N-1); LA=kron(L,D2)+kron(D2,I); 
LA inv=inv(LA); 
% 初 始 条件 
w=sech((X+2).^2+Y.^2/20)+sech((X-2).^2+Y.^2/20); 
% 求 解 
v=0.001; t=0:5:15; 
[twsollj=ode113(0advection diffusion',t,w(:),[],N,D.,D2,LA inv,v); 
% 画 图 
x2ー-L/2:0.2:L/2; y2=x2; 
for n=1:4 
subplot(2,2,n) 
W=Zeros(N+1); 
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w(2:N,2:N)=reshape(wsol(n,:),N-1,N-1): 
winterD2(X,y,W,x2,y2 ,cublc ); 

gca=pcolor(w); set(gca, LineStyle ,none'), shading interp 
title(['t="' num2str(t(n))]), axis(square ), axis off 


end 


文件 advection diffusion.m 代码 如 下 : 

function dw=advection diffusion(t,w,dummy,N,D,D2,LA inv,v) 
psi=reshape(LA_ inv*w,N-1,N-1); 

w=reshape(w,N-1,N-1); 
dw=reshape(v*(D2*w+w*D2')-(ps1*D').*(D*w)+(D*ps1).*(w*D'),(N-1)2,1); 


程序 中 的 拉 普 拉 斯 算 符 和 矩阵 为 (W-1) 阶 方 阵 , 它 的 求 逆 运算 将 耗费 相当 多 CPU 和 内 存 
资源 。 为 币 约 时 间 ， 主 程序 仅 对 其 做 一 次 求 逆 运 算 ， 每 次 调用 advection diffusion 函数 时 ， 
将 其 逆 和 矩阵 作为 参数 传递 进去 。 即 使 这 样 ， 执 行 本 程序 的 时 间 仍 然 比 本 书 中 的 其 他 程序 略 
多 一 些 。 此 外 ， 因 为 计算 时 删除 了 方 阵 wbxD、wornxwD 在 边界 处 的 值 ， 所 以 最 后 要 
在 相应 位 置 补 0。 又 因为 依照 切 比 雪夫 点 划分 计算 区 域 9 导致 计算 结果 在 空间 上 的 不 均匀 


分 布 , 所 以 最 后 使 用 了 interp2 函数 对 结 末 进行 插值 使 其 均匀 化 。 最 终 络 朱 如 疼 5-34 所 示 。 


t=0 t=5 


图 5-34 ” 狄 利 殉 沫 边界 条 件 下 的 二 维 平 流 - 扩 秘方 程 的 计算 结果 
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附录 A ”Matlab 主要 符号 和 函数 


Matlab 中 的 内 置 符号 和 函数 众多 ， 限 于 篇 幅 这 里 不 能 全 部 涉及 。 本 附录 只 将 书 中 主要 
用 到 的 一 些 符号 和 函数 的 语法 和 说 明 罗 列 出 来 ， 以 便 读 者 查询 。 


A.1 返 算 符 、 操 作 符 和 常時 


算术 运算 符 用 来 进行 种 见 的 数学 运算 ， 用 法 见 表 A-1。 


表 A-1 算术 运算 符 


el 
所 
oe 


说 明 运 算 符 说 明 
Tm | 。 -| 和伸 
和 矩阵 的 加 / 减 台 是 矩阵 对 应 元 素 的 加 / 减 ， 因 此 要 求 两 个 矩阵 的 行 数 、 列 数 相同 。 标 量 
是 指 1x1 和 窍 阵 ， 和 矩阵 与 标量 之 间 的 加 /减法 驶 是 窍 阵 每 一 个 元 素 与 标量 的 加 / 减 。 
直隆 右 除 A 相当 于 A*invB), 年 隆 左 除 A\B 相当 于 inv(A)*B。 
A.1.2 关系 运算 符 
关系 运 算 符 用 来 进行 大 小 的 比较 ， 返 回 值 为 1 或 0 (表示 真 或 假 )， 说 明 见 表 A-2。 


表 A-2 关系 运算 符 


运 算 符 说 上 明 运 算 符 说 上 明 
ーー 相等 4 
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A.1.3 ”逻辑 运算 符 
除了 用 表 A-3 中 的 运算 符 实 现 “ 与 “或 ””“ 非 ”的 操作 ， 还 可 以 等 效 使 用 and、or、 
not 困 数 。 


表 A-3 逻辑 运算 符 


4 
| 


A.1.4 常用 操作 符 

1.“[” 和 “]” 用 于 创建 回 量 和 和 矩阵 。 

2.“,” 和 “;” 在 创建 回 量 、 和 窍 阵 和 写 代 码 时 均 会 用 到 。 创 建 回 量 和 和 窍 阵 时 ， 在 同一 行 
的 元 素 用 “,” 或 空格 隔 开 ， 不 同行 的 元 素 用 “;” 隅 开 。 写 每 一 行 代码 时 ， 可 分 别 用 “,” 或 
“;” 结 尾 ， 前 者 将 在 Matlab 的 Command Window 中 显示 语句 的 计算 结果 ， 后 者 则 不 显示 。 

3.“:” 可 以 用 来 产生 同 量 ， 也 可 以 用 来 访问 和 窍 阵 的 特定 元 素 。 如 : 

(1) a:h:b 产生 间隔 为 h 从 a 到 b 的 等 差 序 列 。 如 果 a 和 b 的 差 不 是 h 的 整数 倍 ， 那 么 
输出 结果 将 不 包含 b。 男 外 ，aib 产生 间隔 为 1 从 a 到 b 的 等 差 序列 。 

(2) A(n,:)、A(:n) 分 列 返 回 年 降 A 的 第 n 行 、 第 n 列 元 素 。 男 外 ，A(n:m,:)、A(:,n:m) 
分 别 返 回 和 矩阵 A 的 第 n 到 m 行 、 第 n 到 m 列 的 元 素 。 

(3) A(k,n:m)、AQa:m,k) 分 别 返 回 矩 阵 A 第 k 行 的 第 n 到 m 全 元素 、 第 k 列 的 第 n 到 
m 个 元 素 。 男 外 ，AQn:m,j:k) 返 回 和 矩阵 A 中 在 第 n 色 m 行 目 在 第 1 到 k 列 的 元素 。 

(4) 值得 一 提 的 是 ， 可 使 用 角 标 end 调用 问 量 或 矩阵 的 最 后 一 个 元 素 。 如 A(end,end) 
代表 最 后 一 行 的 最 后 一 个 元 素 ，A(endn:m) 代 表 最 后 一 行 第 n 到 m 个 元 素 。 

($) A() 将 窍 阵 A 的 所 有 元 系 组 成 一 列 返 回 。 

部 分 有 代表 性 的 示例 如 下 : 


>> A=[1 2 3:4 5 6:7 8 9] 


人 三 
| 2 3 
4 5 6 
7 8 9 
>> A(1:2.2:3) 
dI1S 一 
5 3 
5 6 
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>> A(:) 

dI1S 一 
1 
4 
7 
2 
9 
8 
3 
6 
9 


4.“'” 用 于 创建 字符 串 。 

S$.“...” 为 续 行 号 ， 可 把 本 行 和 下 一 行 连 起 来 执行 ， 一 般 用 于 一 行 特别 长 语 铝 的 情况 。 
6.“%” 用 于 注释 其 后 的 一 行内 容 ， 注 释 的 内 容 不 会 执行 。 

A.1.5 专用 常量 

专用 常量 见 表 A-4。 


Pi 上 人 
Inf 非 数 (Not a Number), 代表 0/0 等 


A.2 ” 钴 阵 、 图 形 窗口 相关 孙 数 


A.2.1 特殊 和 矩阵 的 生成 
表 A-$ 列 出 了 生成 特殊 和 矩阵 的 函数 。 


表 A-S 生成 特殊 矩阵 的 函数 
函数 说 明 语法 
| zeros(n) 生成 n 阶 全 0 方 阵 
生成 全 0 知 降 zeros(m,n) 生成 mxn 全 0 年 隆 
ones(n) 生成 n 阶 全 1 方 阵 
No 生成 全 1 知 降 ones(m,n) 生成 mxn 全 1 年 陸 
eye 生成 单位 矩阵 eye(n) 生成 n 阶 单位 矩阵 
magic 生成 魔方 矩阵 magic(n) 生成 nxn 魔方 矩阵 


ee | rand(n) 生成 n 阶 均匀 分 布 随机 数 方 阵 
rand 生成 0 至 1 均匀 分 布 随机 数 | randtm n) 生成 mxn 均匀 分 布 随机 数 和 矩阵 
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| 数 说 明 
生成 均 値 訪 0 方 差 訪 1 的 正 | randn(n) 


randn(m,n) 


态 分 布 随机 数 
生成 对 角 和 矩阵 或 diag(v) 
返回 矩阵 对 角 元 素 diag(A) 


spdiags 生成 带 状 稀疏 矩阵 oa 


linspace 生成 等 同 隔 向 量 


diag 


Inspace(a,b,n) 


部 分 有 代表 性 的 示例 如 下 : 


>> zeros(2) 


ans 一 


>> ones(2,3) 


ans = 
1 | 1 
| | | 

>> eye(3) 

ans = 
1 0 0 
0 1 0 
0 0 | 


>> magic(3) 


ans = 
1 6 
3 5 の 
4 9 2 
>> rand( 3,4) 


语 法 
生成 n 阶 正 态 分布 随 机 数 方 阵 
生成 mxn 正 态 分 布 随机 数 和 矩阵 
将 回 量 v 放 在 返回 矩阵 的 主 对 角 线 上 
以 向 量 形式 返回 矩阵 A 的 主 对 角 线 
将 矩阵 B 的 每 一 列 放 在 mxn 稀 焉 矩阵 的 癌 量 d 所 指 
定 的 对 角 线 上 
把 区 间 [ab] 均 分 成 n 个 数 并 以 向 量 返 回 
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ahns 一 
0.8147 0.9134 0.2785 0.9649 
0.9058 0.6324 0.5469 0.1376 
0.1270 0.0975 0.9575 0.9706 


>> diag([1 2 3]) 


als 一 


1 0 0 
0 2 
0 0 3 


ahns 一 


ph ーー ph ph 


>> linspace(1,2,4) 
ans = 
1.0000 1.3333 1.6667 2.0000 
A.2.2” 单 用 和 矩阵 相关 函数 
表 A-6 列 出 了 一 些 常用 的 矩阵 相关 函数 


表 A-6 “ 单 用 的 矩阵 相关 函数 
函数 说 明 语 法 
2 a 
で i a a 
上 rs a 
kron kron(A,B) 返回 矩阵 A、B 的 克 罗 内 克 积 


( 续 ) 
至 
eig(A) 返回 矩阵 A 的 所 有 特征 值 
eig 计算 特征 值 、 特 征 向 量 [VD]=eig(A) 返回 矩阵 A 所 有 特征 值 构 成 的 对 角 和 矩阵 D、 特 征 向 量 
构成 的 矩阵 V 
本 返回 方 阵 A 的 逆 矩 阵 
det det(A) 返 回 方 降 A 的 行列 式 的 值 
real 返回 实 部 real(A) 返回 矩阵 A 所 有 元 素 的 实 部 
imag 返回 虚 部 imag(A) 返回 矩阵 A 所 有 元 素 的 虚 部 
a abs(A) 返回 矩阵 A 所 有 元 素 的 绝对 值 / 模 
i 返回 共 统 复数 全 返回 矩阵 A 所 有 元 素 的 共 狐 邊 数 
ey spy(A) 返 回 稀 疲 短 降 A 的 示意 图 
ndims ndims(A) 返回 矩阵 A 的 维 数 
numel numel(A) 返回 矩阵 A 的 元素 介 数 
jength | 返回 矩阵 行 、 列 数 的 最 大 值 ” | length(A) 返回 矩阵 A 行 数 、 列 数 的 最 大 值 
[m,n]=size(A) 返回 矩阵 A 的 行 数 m、 列 数 n 
reshape | ”将 矩阵 改变 成 指定 形状 reshape(A,mn) 从 列 方向 上 将 矩阵 A 改变 成 mxn 逢 降 
Jear | 清除 workspace 中 指定 的 变量 和 | or 和 


函数 ， 释 放 内 存 


的 影响 
部 分 有 代表 性 的 示例 如 下 : 


>> A=magic(3) 


A ーー 一 
8 ] 0 
3 3 の 
4 9 2 
>> sort(A) 
ans = 
3 1 2 
4 5 6 
8 9 
>> max(A) 
ans = 
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8 9 7 
>> min(A) 


ahns 一 


>> elg(A) 
ans = 
15.0000 
4.8990 
-4.8990 
>> inv(A) 
ans = 
0.1472  -0.1444 0.0639 
-0.0611 0.0222 0.1056 
-0.0194 0.1889  -0.1028 
>> det(A) 
ans = 
-360 
>> A=[1:5]+[6:10]*i 
A ニ 
Columns 1 through 3 
1.0000 + 0.00001 2.0000+ 7.0000i 
Columns 4 through 5 


4.0000 + 9.00001 5.0000 +10.0000i 


>> real(A) 
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3.0000 + 8.0000i 


ahns 一 


dl1S 一 


>> abs(A) 


dl1S 一 


0.0828 7.2801 6.9440 9.8489 11.1803 


>> conj(A) 


als 一 


Columns 1 through 3 


1.0000 - 0.00001 2.0000- 7.00001 3.0000 - 8.0000i 


Columns 4 through 5 


4.0000-9.00001 353.0000 -10.00001 


>> ndims(ones(3)) 


dl1S 一 


als 一 


>> length(ones(2,4)) 


附录 
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dl1S 一 


- ト 


>> size(ones(2,4)) 


ahns 一 


ト つ っ 
- ト 


dl1S 一 


OO 
OO 
OO 
⑤ 
OO 


A.2.3 ”图 形 窗口 控制 函数 
表 A-7 列 出 了 和 常 用 的 图 形 窗口 控制 函数 。 


表 A-7 图 形 窗口 控制 函数 


路 数 说 明 
clc 清空 Command Window clc 
figure 
figure 创建 图 形 窗口 figure(h) 
5 1 
close 关闭 图 形 窗口 0 JH 
gcf 返回 当前 图 形 窗口 句柄 gcf 
hold | 。 保留 图 形 i 
title 加 图 形 标题 tutle(string) 
xlabel 给 x 轴 加 标签 xlabel x 
ylabel 给 y 轴 加 标签 ylabel y 
zlabel 给 z 轴 加 标签 zlabel z 
legend legend('s1',…) 
aX1S axis([a b c d|) 
drawnow 强制 刷新 图 形 窗口 drawnow 
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语 法 
清空 Command Window 中 的 内 容 


创建 一 个 图 形 窗口 

创建 句柄 为 h 的 图 形 窗口 , 若 此 名 柄 己 存在 , 则 将 其 设 
为 当前 图 形 窗口 

清除 当前 窗口 的 图 形 

清除 句柄 为 h 的 窗口 的 图 形 

关闭 当前 图 形 窗口 

关闭 所 有 图 形 窗 口 


当前 图 形 窗口 句柄 

将 图 形 窗口 划分 为 mxn 个 子 图 ， 并 将 第 p 个 子 图 作为 
当前 图 形 

保留 当前 图 形 ， 使 后 一 个 图 形 可 在 其 上 闭 加 
退出 上 述 模 式 

将 string 作为 图 形 标题 

给 x 轴 加 标签 x 

给 y 轴 加 标签 y 

给 z 轴 加 标签 z 

给 数据 加 图 形 标签 sl…… 

az 为 方位 角 ，el 为 仰角 ， 单 位 为 度 

x 轴 范 围 为 [a, b]，y 轴 范 围 为 [c, d] 
强制 刷新 图 形 窗 口 


附录 


附录 B ”将 计算 结果 制作 成 if 动画 


求解 包含 时 间 的 偏 微 分 方程 (组 ) 将 得 到 随 看 时 间 变 化 的 数值 结果 ， 把 这 样 的 数据 制 
作成 gif 动画 并 结合 到 弥 灯 片 中 ， 在 毕业 答辩 、 小 组 讨论 、 课 笛 教 学 等 场合 有 着 广泛 的 应 
用 。 生 効 的 彩色 gif 动画 具有 很 强 的 表现 力 ， 令 人 刮目相看 ， 大 大 提高 了 报告 人 上 所 讲述 理 
论 结 果 的 直观 性 、 生 动 性 、 观 贤 性 。 

生成 gf 动画 主要 用 到 4 个 函数 : getframe、frame2im、rgb2ind、imwrite。 

(1) getframe 函数 的 一 般 调 用 形式 为 : F=getframe(h), 其 作 用 赴 蔽 取 句 柄 妨 h 的 窗口 
内 的 一 帧 图 像 。 

(2) frame2im 函数 的 作用 是 把 一 帧 截图 转 为 图 像 数 据 。 

(3) rgb2ind 函数 的 作用 是 将 RGB 图 像 转换 为 索引 图 像 ， 一 般 调 用 形式 为 : [X,map]= 
rgb2ind(RGB,n)。 其 中 ，X、map 分 别 为 转换 后 的 图 像 数 据 和 颜色 表 数 据 ，RGB 为 转换 前 
的 图 像 数 据 ，n 指定 map 中 的 顔色 数 。 

(4) imwrite 图 数 的 作用 是 将 图 像 数据 写 入 图 像 文件 ， 一 役 调用 形式 为 : imwrite 
(X,map,filename,fmt,Param1,Vall,Param2,Val2...)。 其 中, X、map 意义 同上 ，filename 为 文 
件 名 , fmt 为 文件 格式 ，Param1,Vall,Param2,Val2... 为 奉 干 可 选 参 数 及 其 取 值 。 如 : 参数 
LoopCount 为 动画 的 循环 播放 次 数 ， 这 里 设 为 inf， 即 无 穷 大 。 参 数 DelayTime 为 每 帧 间隔 
时 间 , 単位 秒 。 参数 WriteMode 为 号 入 文件 的 模式 ， 有 複 音 overwrite (默认 ) 和 追 加 append 
网 种 选择 。 

生成 gs 这 动 男 的 示例 代码 如 下 : 


程序 B-1 


主 程序 代码 如 下 : 
clear all: close all: 
x デ ー] :0.02:1: y=x; 
[X,Y =meshgrid(x,y): 
filename='test.gif'; 
for a=1:10 
u=a*exp(-10*(X.^2+Y.^2)); 
mesh(x,y,u), axls([-1 1 -1 1 0 10]), drawnow 
im=frame21im(getframe(gcf)); 
[A,map |=rgb2ind(im,256); 
1f a== 
% 先 以 狼 童 模式 写 入 指定 的 gif 文件 
imwrite(A,map,filename,'gif','LoopCount',Inf,'Delay Time',0.1); 
else 
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% 再 以 追 加 模 式 閣 毎 一 幅 号 入 gif 文件 
imwrite(A,map,filename, gt, WriteMode',append,DelayTime',0.1): 
end 


end 


运行 代码 之 后 在 当前 目录 下 生成 gif 文件 , 役 略 団 如 団 B-1 所 示 ， 该 动画 显示 了 一 个 
三 维 高 斯 冰 数 的 峰值 逐渐 增 大 的 过 程 。 


ーー 


test. gif 


图 B-1 生成 g 这 动画 的 缩 略 疼 
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说 方法 的 本 质 就 是 将 函数 近似 写成 花 请 函数 的 有 限 级 数 展开 式 ， 因 此 ， 针 对 越 是 光滑 
的 函数 ， 级 数 展开 式 的 项 数 就 越 少 ， 详 方法 的 类 度 也 如 越 启 。 例 如 对 于 一 个 存在 己 阶 导数 
的 函数 , 用 谱 求 导 和 矩阵 求 出 的 阶 导 数 将 具有 O( が 的 精度 。 精度 高 走 普 方 法 最大 的 伯 勢 , 
对 光滑 函数 的 微分 问题 , 它 一 般 可 达 证 10 位 有 效 数字 的 精度 , 但 有限 差分 法 和 有限 元 法 通 
种 只 有 4 位 或 5 位 有 效 数字 的 精度 。 这 是 不 难 理解 的 ， 由 于 谱 方 法 是 一 种 全 局 的 算法 ， 它 
在 计算 某 一 处 的 导数 时 用 到 了 所 有 已 知 友 。 而 有 限 莽 分 法 作为 一 种 局 部 算法 ， 某 一 处 的 导 
数 仅 由 临近 的 几 个 点 运算 得 到 ， 相 比 之 下 精度 大 打折 扣 。 有 限 元 法 也 是 一 种 局 部 算法 ， 其 
精度 受 公 削 分 単元 的 ル 何 形状 、 割 分 審 度 影 咽 , 还 受制 于 计算 机 有 限 的 计算 速度 和 存储 量 ， 
提高 精度 需要 很 大 代价 。 

因为 傅 里 叶 谱 方法 无 需 构 造 大 型 乍 孟 ， 仅 依赖 于 运算 复杂 度 为 O(NlogN) 的 FFT 算法 ， 
所 以 它 在 保证 高 精度 的 同时 ， 运 算 量 也 大 大 低 于 有 限 送 分 法 和 有 限 元 法 ， 且 只 需要 很 少 的 
计算 机 内 存 ， 它 的 不 是 之 处 就 是 仪 适用 于 周期 性 边界 条 件 下 的 微分 问题 。 切 比 雪 夫 谱 方法 
可 以 处 理 第 一 、 二 、 三 类 边界 条 件 下 的 全 微分 问题 ， 但 只 能 在 规则 区 域内 求解 “二 角 坐 标 
系 下 为 矩形 ， 极 坐标 系 下 为 圆 形 )。 这 正 是 由 详 方 法 的 全 局 性 造成 的 ,全 局 性 在 市 来 高 精度 
的 同时 ， 也 限制 了 求解 区 域 的 一 般 性 。 仅 在 求解 区 域 这 一 点 上 ， 谐 方法 不 及 有 限 元 法 的 适 
用 性 强 。 

总 结 本 书 中 处 理 微分 方程 的 一 般 思 路 : 

(1) 针对 只 含 空间 坐 标 (x、y*…) 不 含 时 间 的 微分 方程 (椭圆 型 方程 、 特 征 值 问题 等 )。 
求解 思路 是 先 将 函数 上 和 変 量 x、y 等 高 英 化 , 再 利用 求 吕 矩阵 将 微分 方程 转换 为 滤 阵 的 基 
本 问题 。 如 椭圆 型 方程 就 成 了 形 如 4u=f 的 矩阵 问题 ， 数 值 解 即 为 ヵ =4 7。 再 加 特 征 値 同 
题 可 写 为 4u=4 的 矩阵 形式 ， 数 值 解 即 为 矩阵 4 的 特征 值 和 特征 问 量 。 

(2) 针对 形 如 下 陈 的 包含 空间 坐标 zx 和 时 间 上 的 俩 微分 方程 《抛物 型 方程 、 非 线性 
方程 等 ) 或 方程 组 : 


Ou | Ou Ou 
Ot =/ Ox ’ ax? 9 yr| 


求解 思路 为 先 将 函数 上 和 变量 x 离散 化 ， 再 利用 傅 里 时 谱 方 法 或 求 导 和 窃 阵 处 理 等 号 右 
边 的 6GwBr、6 WwWBr……， 这 样 就 可 以 将 偏 微分 方程 转换 为 耦合 常 微分 方程 组 。 最 后 使 用 时 
间 步 进 法 (推荐 Matlab 的 ode 系列 函数 ) 数值 计算 此 粳 合 第 微分 方程 组 ， 得 到 指定 时 刻 的 
数值 解 。 上 述 过 程 匈 如 下 示意 图 。 
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跋 


ode 系 列 函 数 


再 利用 传 里 时 谱 方 法 / 
求 导 和 矩阵 


而 对 于 等 号 左边 为 高 阶 导 数 CwW6 ( 双 曲 型 方 程 ) 或 者 等 号 右边 有 wu 在 多 个 空间 维度 
(x、y…) 上 的 俩 导数 的 情况 ， 求 解 方法 也 大 同 小 卉 。 

在 实际 问题 中 直到 的 规则 区 域 上 的 微分 方程 (组 ) 基本 都 可 以 用 上 述 思路 又 快 又 好 地 
数值 求解 。 
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